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ABSTRACT 


Ocean  Acoustic ^Tomography  data  are  significantly  degraded  if 
mooring  motion  is  unknown.  An  autonomous  instrument*^  employing  a 
solid  state  data  logger  designed  to  track  and  record  mooring 
motion  is  described. 


Navigation  Is  accomplished  by  simultaneously  interrogating 
each  of  three  bottom  mounted  transponders  positioned  in  an 
equilateral  triangle  around  the  mooring's  anchor  at  a  range 
approximately  equal  to  the  depth  of  the  tracked  instrument.  The 
three  round-trip  travel  times  thus  obtained^ having  a  resolution 
of  125uS  and  a  SNR  dependent  jitter  of  less  than  1.5mS,  define  a 
unique  Instrument  position  and  are  recorded  along  with  the  time 
of  day  and  day  of  year. 

The  measurement  period,  the  system  clock  and  the  program 
start  time  are  set  via  a  20mA  SAIL.  Since  the  standby  power 
requirement  is  negligible  compared  to  the  battery  capacity,  the 
instrument  may  be  programmed  months  in  advance  of  (the  deployment. 

System  endurance  varies  with  the  measurement  period, 
however,  typical  programs  permit  navigation  for  up  to  21  months 
at  12  points  per  day. 


Upon  recovery,  the  navigator  data  may  be  down-loaded  via  SAIL 
directly  to  the  storage  medium  of  a  suitable  computer. 
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1.0  GENERAL  DESCRIPTION 


1.1  Introduction 


The  requirement  to  spatially  track  acoustic  transceivers 
moored  as  part  of  an  Ocean  Acoustic  Tomography  experiment  has  led 
the  Woods  Hole  Oceanographic  Institution  and  Benthos  Inc.  of 
Falmouth,  Ma,  to  develop  an  acoustic  mooring  navigation  system. 

The  electronics  module  designed  at  W.H.O.I.  and  described  in 
this  manual  is  used  with  the  BENTHOS  model  (ES)  210-TCSSA 
acoustic  transceiver.  Together  they  form  a  Mooring  Motion 
Monitoring  Module  (QUAD  M)  Interrogator. 

This  document  serves  as  a  system  hardware  reference  manual 
for  the  technical,  but  uninitiated  user.  It  references  other 
hardware  manuals  where  appropriate  and  provides  system-oriented 
information  unavailable  elsewhere.  A  copy  of  the  interrogator 
control  program  (PNAVLGR)  is  included  as  an  addendum  to  this 
manual . 


1.2  System  Components 


Tracking  is  accomplished  by  measuring  round-trip  travel  time 
from  the  interrogator  to  three  transponders.  The  transponders  are 
moored  about  three  meters  above  the  ocean  floor  and  approximately 
one  water  depth  away  from  the  mooring  anchor. 
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Figure  1  is  a  block  diagram  of  a  mooring  equipped  to  monitor 
the  motion  of  an  instrument  mounted  near  a  sub-surface  float. 

"A",  "B",  and  "C",  are  bottom-mounted  acoustic  transponders, 
either  Benthos  model  210-TR17A-GF  which  are  recoverable  or  model 
XT-6000  which  are  not.  The  interrogator  is  mounted  as  near  as 
practical  to  the  instrument  tracked.  The  frequencies  depicted 
are  those  which  were  originally  employed.  To  remain  compatible 
with  as  many  tomography  instruments  as  possible,  the  13.5kHz 
channel  has  been  retuned  to  12.0kHz. 

The  interrogator  pings  to  all  three  transponders 
simultaneously  at  a  predetermined  time  and  at  a  predetermined 
rate.  The  time  required  to  receive  a  response  from  each 
transponder,  along  with  the  time  of  day  and  date,  are  stored  in 
CMOS  static  RAM. 

The  operating  parameters  are  set  via  the  Seri, a  1  ASCII 
Instrumentation  Loop  (SAIL).  Pre-deployment  checks  and  data 
retrieval  are  also  accomplished  over  the  SAIL.  A  formal 
description  of  the  SAIL  standard  is  presented  in  U.N.O.L.S.  Ref. 
TAC-81-1  Aug.  1981,  "Serial  ASCII  Instrumentation  Loop  (SAIL)"  or 
IEEE  standard  997-1985. 
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2.0  SPECIFICATIONS 


2.1  Interrogator 


The  transceiver  specifications,  except  the  electrical  power 
source  and  operating  life,  are  as  listed  in  the  Benthos  operating 
manual  for  the  (ES)210-TCSSA.  These  two  exceptions  are  the  result 
of  replacing  a  MICRO  tape  recorder  and  its  associated  control 
electronics  with  a  solid  state  memory  and  a  power-switched, 
microprocessor-based  controller.  The  transceiver  configured  in 
this  manner  will  henceforth  be  referred  to  as  an  interrogator. 


2.2  Power 


Twenty-one  1.5  volt  "0"  size  alkaline  cells  supply  power  for 
the  interrogator.  The  DURACELL  B1300-T2,  with  spot  welded  solder 
tabs  ori  botii  lerminals  i*  the  preferred  cell. 

The  cells  are  configured  as  follows:  Two  diode-isolated 
parallel  strings,  each  consisting  of  9  cells  are  wired  in  series 
yielding  12  volts,  then  3  cells  are  wired  in  s°riss  with  the  12 
volt  stack  to  yield  16  volts.  The  battery  thus  formed  is  tapped  at 
12  volts  to  power  the  acoustic  receiver  and  the  digital  electronics, 
while  the  16  volt  tap  supplies  the  pinger's  power  amplifier. 

De-rating  for  temperature  and  storage,  and  assuming  an 
average  cell  voltage  of  1  volt,  each  cell  will  yield  approximately 
10  watt  hours.  The  above  stack  is  therefore  rated  at  210  watt  hours. 
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Making  one  measurement  per  hour,  the  interrogator  requires  fewer  than 
0.0045  watt  hours.  This  yields  an  operating  life  in  excess  of  5 
years,  which  exceeds  the  nominal  self  discharge  time  of  an  alkaline 
cell.  It  is  however,  recommended  that  the  battery  be  replaced  before 
each  deployment. 


2.3  Schedule 


A  measurement  may  be  made  as  often  as  every  three  minutes, 
or  as  seldom  as  once  every  999  minutes.  The  time-of-day  clock 
must  be  set  to  the  nearest  whole  minute.  Assuming  that  the 
clock's  oscillator  was  adjusted  to  32.768kHz  with  the 
interrogator  at  the  same  temperature  encountered  while  deployed, 
its  time  will  be  accurate  to  within  +/*  5  minutes  after  365  days, 
i.e.,  the  clock  will  lose  or  gain  about  1  second  per  day.  The 
start  of  a  measurement  sequence  may  be  scheduled  on  any  whole 
minute  of  the  year.  Leap  years  are  not  accounted  for  so  the  clock 
will  reset  to  day  1  on  day  366  of  a  leap  year.  Note:  Interrogator 
S/N  005  has  an  alternate  program  allowing  it  to  make  measurements 
as  often  as  every  3  seconds  or  as  seldom  as  every  999  seconds. 

This  system  is  typically  employed  as  a  recording  acoustic  range 
finder  for  towed  instruments. 


2.4  Data  Format 


The  60K  RAM  (Random  Access  Memory)  allows  space  for  7648 
measurements  which,  at  12  measurements  per  day,  yields  a  system 
endurance  in  excess  of  twenty  months.  After  the  7649th 
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measurement,  which  will  be  made  but  not  stored,  the  system  will 
enter  the  "rdle"  mode,  and  no  further  measurements  will  be  made. 

Each  measurement  consists  of  a  16  bit  time-of-day  word,  and 
three  16  bit  two-way  travel  time  words.  The  time  of  day  is 
recorded  with  a  resolution  of  one  hour.  An  LSB  or  travel  time  is 
equal  to  250  uS.  Measurement  data,  stored  beginning  at  RAM 
address  1000H,  are  ordered  as  follows: 

Time  of  day,  Travel  time  A,  Travel  time  B,  and  Travel  time  C. 

The  time  of  day  is  encoded  as  follows: 

BIT  #  15  14  13  12  11  10  9  8  7  6  5  4  3  2  1  0 
UNITS  HD  HD  TD  TD  TD  TD  UD  UD  UD  UD  TH  TH  UH  UH  UH  UH 
WEIGHT  218421  8421218421 

Where  HD  is  hundreds  of  days,  TD  is  tens  of  days,  UD  is  units  of 
days,  TH  is  tens  of  hours,  and  UH  is  units  of  hours. 

As  an  example,  a  time  code  word  of  11D6H  would  convert  to 
day  047  hour  16  as  follows: 

1  1  D  6 

00  0100  0111  01  0110 
HD  TD  UD  TH  UH 

0  4  7  1  6 


2.5  Transponder 


The  transponder  specifications  may  be  found  in  BENTHOS 
report  0-210-TR17A-GF  or  the  XT-6000  Technical  Manual. 
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3.0 


OPERATION 


3.1  Power  On  /  Reset 


Following  the  instructions  in  Benthos  manual  0-210-TCSSA, 
section  2.1,  remove  the  electronics  from  the  pressure  housing. 
Position  the  electronics  with  the  back-plane  wiring  facing  away 
from  you  and  with  the  transducer  on  your  left.  Locate  the  power 
switch  near  the  transducer  end  of  the  instrument  and  ensure  that 
it  is  in  the  "on"  position.  Locate  the  reset  pins  on  the  opposite 
end  of  the  instrument  and  short  them  together  for  at  least  five 
seconds.  This  will  reset  the  digital  electronics  and  start  the 
microprocessor. 


3.2  Connect  to  SAIL 


Connect  to  the  SAIL  via  the  banana  jacks  on 
electronics  card.  Insure  that  the  loop  is  closed 
terminal  to  the  SAIL  /  RS - 232  converter.  Set  the 
seven  data  bits,  even  parity,  1  stop  bit,  and  300 


the  controller 
and  connect  a 
terminal  for 
baud. 


3.3  Monitor  Current 


Connect  a  digital  voltmeter  between  test  points  1  and  2 
which  are  located  on  either  side  of  R1  on  the  System  Control  card. 
The  meter  will  read  total  system  current  scaled  at  lOOuA/mV. 
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Once  the  SAIL  loop  is  closed  and  a  full  minute  has  elapsed,  the 
voltmeter  will  read  between  60  and  80  mV.  If  less  than  a  minute  has 
elapsed  the  reading  may  be  between  .3  and  .6  mV.  Wait  for  the 
higher  reading  which  indicates  that  the  processor  is  awake  and  ready 
for  SAIL  control. 

Note:  Most  of  the  interrogators  are  now  equipped  with  a  LED  to 
monitor  the  switched  power.  With  these  instruments  there  is  no 
need  monitor  the  voltage  across  Rl.  Simply  wait  for  the  LED  to 
light  before  attempting  to  address  the  interrogator. 


3.4  Address 


Once  the  microprocessor  has  detected  the  presence  of  a 
closed  SAIL  and  applied  power  to  the  rest  of  the  system,  the 
instrument  may  be  addressed  by  typing  fin  where  n  is  the 
interrogator's  serial  number.  A  correctly  addressed  instrument 
will  respond  with: 

In  READY 


EXAMPLE  #13  <---  You  type  this  line 

13  READY  <---  Interrogator 
<---  reply 

The  in  the  above  example  is  the  system  prompt  and  signifies 
that  the  interrogator  is  awaiting  commands.  Type  an  H  and  the 
interrogator  will  print  a  list  of  the  available  commands. 


11 


EXAMPLE 


:  H 

INTERROGATOR  PROGRAM  Ver.  1.1  Jan.  1985 


SYSTEM  COMMANDS 


[Maaaa  dddd 
?M 

?Paaaa 

?C 

M 

R 

?S 

! SCHEDULE 
!  TIME 
?T 

'.LOCK 

[UNLOCK 

[IDLE 

[PING 


LOAD  MEMORY 
DISPLAY  MEMORY 
RUN  PROGRAM 
CALCULATE  CRC 
MOVE  MEMORY 
TEST  RAM 

DISPLAY  SCHEDULE 
PROGRAM  SCHEDULE 
SET  CLOCK 
DISPLAY  TIME 
PROTECT  MEMORY 
UNPROTECT  MEMORY 
INHIBIT  SCHEDULER 
TRANSMIT  A  lOmS  PULSE 


3.5  Entering  Commands 


To  initiate  a  command,  simply  type  it  exactly  as  it  is  listed 
in  the  "HELP"  file.  An  error  message  will  be  printed  in  response 
to  an  unrecognized  command.  Usually  this  message  will  be  followed 
by  the  "prompt",  at  which  time  you  may  try  re-entering  the 
command.  NOTE:  Commands  are  NOT  terminated  with  a  “Carriage 
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Return",  but  ALL  numeric  entries  in  response  to  system  prompts 
MUST  be  terminated  with  a  "Space". 


3.6  Correcting  Errors 


Numeric  entries  are  expected  to  be  a  certain  number  of 
digits  in  length.  For  example,  when  entering  the  start  hour,  a 
two  digit  figure  is  expected;  but  when  entering  the  measurement 
interval,  a  three  digit  figure  is  expected.  Only  the  last  n 
digits  typed  prior  to  a  "Space"  are  entered  (  n  is  the  number  of 
digits  expected  ).  Because  of  this,  typing  errors  may  be  corrected 
by  simply  typing  the  correct  figure  immediately  after  the  error. 

For  example,  when  entering  the  measurement  interval,  if  you 
mistakenly  type  20  when  what  you  really  wanted  was  120,  the 
corrected  entry  would  look  like  this:  20120.  Similarly,  an  hour 
entry  of  2314234121  would  be  accepted  as  hour  21. 


3.7  PROM  Test 


Test  the  system  program  memory  by  typing  ?C  and  answering 
the  questions  with  0  over  800,  and  800  over  800.  Verify  the 
correct  response  by  comparing  the  calculated  CRC  with  the  values 
recorded  on  the  PROMS,  IC  4  and  5. 


EXAMPLE 


?CRC  From  000  Over  800  =  994C 
?CRC  From  800  Over  800  =  EF9A 
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3.8  RAH  Test 


Test  the  system  RAM  by  typing  {UNLOCK.  The  system  will 
respond  with  OK.  Then  type  an  R.  The  system  will  respond  by 
typing  a  cosmetic  "am"  and  the  words  "Test  From".  You  answer 
with  1000,  and  the  system  will  then  type  Over,  to  which  you 
answer  FOOO.  A  RAM  test  over  this  much  memory  requires  about  one 
minute  and  seven  seconds.  After  each  successful  pass,  the  system 
will  type  a  *.  Ten  such  passes  would  indicate  good  memory.  Reset 
and  address  the  system  as  in  3.1  and  3.4  respectively. 

EXAMPLE  :  'UNLOCK  OK 

:  Ram  Test  From  1000  Over  FOOO  OK  (Y/N)  ?  Y 


The  [UNLOCK  command  is  required  since  RAM  test  will 
overwrite  any  measurements  previously  stored.  The  program  will 
automatically  execute  the  [LOCK  command  when  the  RAM  test  is 
terminated. 


3.9  Clock  Set 


Set  the  system  clock  by  typing  'TIME  DDD  HH  Jfl  00  where  DDD 
is  the  year  day,  HH  is  hours  and  MM  is  minutes.  Since  the 
interrogator  clock  has  a  one  minute  resolution,  seconds  must 
always  be  entered  as  00  and  the  clock  must  be  started  on  the 
minute.  When  real  time  is  equal  to  the  time  entered,  type  an 
This  will  start  the  clock.  To  verify  that  the  correct  time  was 
entered  and  that  the  clock  is  running,  re-address  the  instrument 
(Section  3.4)  and  after  the  prompt,  type  ?T.  The  interrogator  will 
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respond  with  the  current  time  plus  one  minute,  wait  for  the  real  time 
to  equal  the  time  just  printed  and,  on  the  mark,  printing  an  @. 

EXAMPLE  ‘TIME  123  21  35  00  9 

fin 

fin  READY 

:  ?T  123  21:36  00  Z...9 


3.10  Schedule 


Set  the  operating  schedule  by  typing  'SCHEDULE.  The 
Interrogator  will  ask  you  for  Start  day,  hour,  minute,  and  the 
measurement  interval.  Terminate  all  entries  with  a  SPACE.  When 
all  parameters  have  been  entered,  the  interrogator  will  ask 
permission  before  activating  the  scheduler. 

EXAMPLE  :  ! SCHEDULE 

Start  on  day  =  115  Hour  =  18  Minute  =  30 
Measurement  interval,  minutes  =  060  OK  (Y/N)  ?  Y 


3.11  Verify  Schedule 


Verify  that  the  schedule  has  been  accepted  as  entered  by 
typing  ?S.  The  interrogator  will  respond  by  typing  the  current 
time  and  schedule  in  addition  to  the  system  status  (ARMED,  not 
ARMED,  or  ACTIVE).  If  the  system  is  ACTIVE,  the  number  of  minutes 
remaining  to  the  next  measurement  (in  HEX)  and  the  current  data 
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address  pointer  will  also  be  shown. 


EXAMPLE  :  ?S 


At  115  18:10 

Start  on  day  =  115  hour  =  18  minute  =  30 
Measurement  interval  =  060  minutes 
Scheduler  is  ARMED  BUT  NOT  ACTIVE 


3.12  Test  Pinqer 


Test  the  pinger  by  typing  !PING.  The  interrogator  will 
respond  by  typing  OK  (Y/N)  ?  If  you  next  type  a  Y  you  should 

hear  the  transmit  pulse. 


EXAMPLE  :  !PING  OK  (Y/N)  Y 


3.13  Final  Test 


Disconnect  the  SAIL  cable  and  observe  the  system  current 
immediately  drop  to  some  value  below  lOOuA.  At  the  next  one 
minute  mark,  the  current  will  rise  to  a  level  near  7mA  and  stay 
at  that  level  for  about  70mS.  If  the  interrogator  is  equipped 
with  a  LED,  it  will  dimly  flash.  These  observations  indicate  that 
the  interrogator  is  functioning  correctly  and  the  instrument  may 
be  encased  in  its  pressure  housing.  Refer  to  section  2.1  of 
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BENTHOS  manual  (ES)  210-TCSSA  and,  following  instructions  there, 
place  the  electronics  within  the  pressure  housing.  At  this  point 
the  interrogator  is  ready  for  deployment. 


3.14  Data  Recovery  (fast) 


When  the  instrument  is  recovered,  the  data  which  are  stored 
in  RAM  may  be  down  loaded  at  a  high  baud  rate  directly  to  the 
storage  medium  of  a  suitably  equipped  computer.  Be  careful  not  to 
interrupt  power  to  the  system  in  any  way  as  this  WILL  result  in 
lost  data.  Proceed  as  follows: 


a.  Remove  the  electronics  from  the  pressure  housing  (3.1) 

b.  Connect  the  SAIL  to  RS-232  converter  box.  (3.2) 

c.  Monitor  current,  and  wait  for  the  high  reading.  (3.3) 

d.  Replace  the  jumper  plug  located  on  the  control  card 
(P3)  with  the  cable  from  the  5  VOLT  BAUD  RATE 
GENERATOR.  Set  the  baud  rate  generator  for  9600  baud, 
(see  Figure  8.) 

e.  Connect  the  auxiliary  I/O  port  of  the  computer  to  the 
RS-232  connector  on  the  SAIL  to  RS-232  converter. 

f.  Set  this  port  for  9600  baud,  seven  data  bits,  one  stop 
bit,  and  even  parity. 
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g.  Using  the  computer  terminal  (and  the  appropriate 
communications  program)  address  the  interrogator.  (3.4) 

h.  Type  ?S  to  verify  that  the  system  is  still  "ACTIVE", 
that  the  clock  is  still  running,  and  to  obtain  the  data 
address  pointer.  Subtract  1000H  from  the  current 
address  pointer,  and  make  note  of  the  result. 

i.  Type  'IDLE  to  inhibit  further  measurements. 

j.  Prepare  the  computer  to  receive  an  ASCII  data  file,  and 
type  ?M.  The  system  will  respond  by  printing  From. 

You  respond  by  typing  1000.  The  system  will  then  print 
Over,  and  you  respond  by  typing  the  result  of  the 
calculation  done  in  3.14  (h.)  followed  by  a  carriage 
return. 

The  interrogator  down  loads  two  measurements  per  line.  A 
full  memory  (7648  measurements)  requires  approximately  three 
minutes  to  down  load. 
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4.0  THEORY  OF  OPERATION 


4.1  Acoustic  Electronics 


Section  5  of  Benthos  report  0-210-TCSSA  explains  the 
operation  of  the  acoustic  electronics. 


4.2  Power  Supply 


Refer  to  Figure  2,  which  is  a  simplified  block  diagram  of 
the  interrogator.  The  capacitor  board,  the  5  volt  regulator,  and 
the  low  voltage  detector  are  the  only  blocks  which  receive  power 
directly  from  the  battery.  The  5  volt  regulator  supplies  power  on 
a  continuous  basis  to  two  other  blocks,  the  clock,  and  the  60K 
CMOS  static  RAM.  All  other  blocks  are  powered  intermittently. 

Refer  to  Figure  3,  which  is  a  schematic  drawing  of  the 
interrogator  power  supply.  These  components  are  located  on  the 
SYSTEM  CONTROL  PC  card.  R1  is  in  series  with  the  12  volt  stack, 
and  is  used  as  a  current  sense  resistor  for  the  entire 
electronics  package.  A  voltmeter  placed  across  this  resistor  will 
display  current  scaled  at  100  uA/mV.  The  ICL  7663  is  a  micro¬ 
power  voltage  regulator  with  over-current  sense.  The  output  of 
this  regulator  is  set  to  5.5  volts  by  adjusting  PI.  The  2N3643  is 
a  series  pass  transistor  used  to  supply  surge  current  during 
the  power-up  sequence. 

The  ICL7665  is  a  micro-power  under  voltage  detector.  Its 
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Figure:  2 


Interrogator  Block  Diagram 
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purpose  is  to  monitor  the  battery  and  at  a  preset  voltage  inhibit 
further  measurements  in  order  to  conserve  battery  power  for  data 
retention.  When  the  battery  voltage  drops  below  6.6  volts,  LV  NOT 
goes  true  (logic  0).  This  will  stop  a  measurement  in  progress, 
and  inhibit  any  further  measurements  from  being  initiated.  LV  NOT 
will  remain  true  until  the  input  voltage  on  PI  - 12  rises  above  7.8 
volts.  The  1.2  volt  hysteresis  prevents  the  switch  from 
oscillating  between  true  and  false,  whic.-'  could  occur  due  to  the 
difference  between  the  open  circuit  voltaoe  of  the  battery  and 
the  battery  voltage  while  the  system  is  enabled. 


4.3  System  Control 


Refer  to  Figure  4.  This  is  a  schematic  of  the  interrogator 
system  control.  These  components  are  located  on  the  same  card  as 
the  power  supply.  5  volt  logic  power  enters  through  diode  Dl. 
This  diode  drops  approximately  .5  volts  so  that  VCC  and  VDD  to 
all  components  on  this  card  will  equal  about  5  volts.  If  this  is 
not  the  case,  check  the  adjustment  of  R24. 

IC  5,6,  and  7  provide  a  once-per-minute  pulse.  If  the 
rest  of  the  system  is  already  powered,  this  pulse  simply 
generates  an  interrupt  for  the  microprocessor  (IC9).  If  the  rest 
of  the  system  was  not  already  powered,  the  once-per-minute  pulse 
will  clock  a  HIGH  to  pin  13  of  IC  4.  This  causes  pin  4  of 
IC  2  to  go  LOW  which  enables  system  memory  and  turns  on  Q2. 

VDD  is  applied  to  the  remaining  unpowered  ICs  on  this  card 
when  Q2  is  on.  IC  11,  which  was  already  powered,  now  has  VDD  on 
input  pins  3  and  6.  VDD  is  level  shifted  via  this  IC  to  12  volts 
and  fed  through  PI  directly  to  the  BENTHOS  electronics. 


22 


Reproduced  From 
Best  Available  Copi 


Figure  4 


23 


Control  Schematic 


.'STEM  CCNlTKOt. 


When  VDO  first  goes  high,  a  reset  pulse  is  generated  via  C4 
charging  through  R8.  The  reset  pulse  is  applied  directly  to  pin 
11  of  IC  15  which  inhibits  this  IC  and  prevents  inadvertent  I/O 
operations.  The  reset  pulse  is  also  inverted  via  IC  2  and  12. 

The  inverted  reset  (CLR  NOT)  is  level  shifted  via  IC  11  and 
routed  to  the  BENTHOS  transmitter  through  PI.  This  signal,  along 
with  a  slight  modification  to  the  BENTHOS  electronics,  prevents 
the  transmitter  from  pinging  upon  power  up.  CLR  NOT  is  also 
connected  to  IC  9  and  10.  IC  9  is  the  microprocessor,  and  when 
CLR  NOT  goes  HIGH,  program  execution  begins  at  address  0000. 

The  software  clock  is  updated  once  the  program  has  been 
initialized,  and  the  UART  (IC  10)  is  examined  to  determine  if  the 
SAIL  is  open  or  closed.  If  the  loop  is  found  to  be  open,  a  test 
is  made  to  determine  if  it  is  time  to  begin  a  measurement  cycle. 

If  the  loop  is  closed,  interrupts  are  enabled  and  take  over  the 
function  of  updating  the  clock.  If  the  loop  is  open  and  it  is  not 
time  to  begin  a  measurement  the  microprocessor  generates  a  signal 
which  appears  on  IC  15  pin  2.  This  signal  is  then  gated  to  the 
reset  pin  of  IC  4  via  the  OR  gate  composed  of  IC  2  and  3.  Resetting 
IC  4  causes  a  HIGH  to  appear  on  pin  4  of  IC  2  which  will  disable  the 
memory  select  circuits  and  cause  Q2  to  turn  off.  The  disable  signal 
is  inverted  by  IC  3,  and  the  LOW  thus  produced  is  connected  to  VDD. 
Since  Q2  is  no  longer  conducting,  this  LOW  will  cause  VDD  to  drop 
rapidly. 

NOTE:  It  is  important  to  remember  that  the  microprocessor  reacts 
to  a  manual  reset  in  exactly  the  same  fashion  that  it  reacts  to 
the  once-per-minute  tick.  For  this  reason,  the  interrogator  clock, 
which  resides  only  in  software,  will  be  advanced  one  minute  with 
each  manual  reset,  regardless  of  how  much  time  has  actually 
elapsed. 
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IC  14  and  13  divide  the  1MHz  clock  by  250  to  produce  a  4 
kHz  square  wave  which  is  applied  to  pin  21  of  IC  9.  During  a 
measurement  sequence,  the  microprocessor  will  increment  three 
separate  counters  on  each  rising  edge  of  this  signal.  The  action 
begins  immediately  after  a  ping  is  transmitted,  and  continues 
until  either  all  three  transponders  reply  or  the  counters 
overflow.  The  reply  detected  signals  (fl,f2,  and  f 3 )  from  the 
BENTHOS  electronics  enter  through  PI,  are  level  shifted  by  IC  12, 
and  latched  by  IC  16.  The  output  of  the  latch  is  connected  to 
pins  22,  23,  and  24  of  the  microprocessor;  these  are  three  of  the 
flag  lines.  When  the  microprocessor  detects  one  of  these  flags, 
it  stops  incrementing  the  counter  associated  with  that  reply 
channel.  The  number  remaining  in  the  counter  represents  the  two- 
way  travel  time.  A  counter  which  contains  all  zeros  has 
overflowed  and  indicates  no  reply  on  that  channel. 

IC  18  converts  the  20  mA  SAIL  levels  to  5  volt  CMOS  levels 
for  the  UART,  and  provides  an  output  which  indicates  an  open 
loop.  IC  17  divides  the  TPA  clock  signal  from  IC  9  by  26  to 
provide  the  16X  clock  rate  the  UART  requires  to  run  at  300  baud. 

The  Q4  output  of  IC  15  and  the  DO  output  of  IC  18 
synchronize  the  clock.  Once  the  time  has  been  entered,  the 
microprocessor  generates  a  signal  which  causes  Q4  of  IC  15  to  go 
HIGH.  This  is  the  SET  signal  and  is  applied  to  the  set  input  of 
IC  6.  Pin  1  of  this  IC  goes  HIGH  and  is  gated  by  the  OR  gate 
formed  with  IC  2  and  3  to  the  reset  inputs  of  IC  5,6,  7.  This 
stops  the  clock's  oscillator  and  resets  its  down  counters.  The 
start  bit  of  any  character  typed  over  the  loop  will  be  inverted 
by  IC  3  and  used  to  clock  IC  6.  This  will  remove  the  reset  and 
allow  the  clock's  oscillator  and  down  counters  to  operate.  If 
the  character  was  not  an  the  microprocessor  will  again 
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generate  the  signal  which  causes  Q4  of  IC  15  to  go  HIGH,  and  the 
cycle  repeats. 


4.4  Memory  Control 


Refer  to  Figure  5.  This  is  a  schematic  of  the  memory  control 
electronics.  These  components  are  located  on  the  64K  memory  card. 

IC  17  gates  the  buffered  MWR  NOT  and  MRD  NOT  signals  with 
the  DISABLE  signal  generated  on  the  system  control  card.  This 
signal  will  go  true  just  before  power  is  removed  from  the 
microprocessor.  When  disable  is  true,  both  XMWR  NOT  and  XMRD  NOT 
are  false  (logic  "1").  XMRD  NOT  being  HIGH  holds  IC  21  reset.  The  Q4 
output  of  IC  21  is  applied  to  pin  8  of  IC  13;  and  since  pin  9  of 
this  IC  is  also  HIGH,  its  output,  pin  10,  is  LOW.  This  is  the 
memory  on  (or  enable  memory  bus)  signal,  and  when  LOW,  inhibits 
all  memory  operations  by  de-selecting  the  memory  chips  and  by 
turning  off  the  memory  bus  drivers. 

IC  16,  18,  and  the  remaining  NAND  gates  of  IC  13  decode 
the  address  lines  to  produce  the  8K  selects  which  enable  the 
HM6264  RAM  chips  on  this  card.  IC  12  decodes  the  proper  address 
lines  to  produce  the  2K  selects  which  are  required  by  the 
27C16  PROM  chips,  and  the  HM6116  RAM  chips.  Since  the  PROM  is 
power  switched,  the  2K  selects  used  by  these  chips  are  buffered 
by  IC  19.  IC  21  is  a  counter  and,  with  IC  13,  is  used  to  truncate 
the  memory  cycle  and  thus  conserve  power.  It  is  recommended  that 
the  jumper  from  pin  8  of  IC  13  to  pin  11  of  IC  21  be  moved  to  pin 
13  of  IC  21,  thereby  increasing  the  memory  enabled  time  by  luS. 

This  modification,  although  not  essential  and  causing  a  slight 
increase  in  power  consumption,  will  improve  the  system's  reliability. 
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4.S  64K  Memory 


Refer  to  Figure  6.  This  is  a  schematic  of  the  system  memory. 
These  components  are  located  on  the  same  card  as  the  memory 
control  electronics.  A  24  pin  ribbon  cable  connects  the  memory 
card  to  the  system  control  card.  The  memory  is  fully  buffered  by 
IC  18  and  22  which  buffer  the  data  lines  and  IC  14  and  15  which 
buffer  the  address  and  clock  lines.  Since  IC  4  and  5  are  power 
switched  the  MRD  NOT  signal  is  buffered  by  IC  19. 

Power  for  this  card  is  supplied  via  a  disconnect  through  two 
diodes  which  isolate  the  logic  power  from  the  memory  back-up 
battery.  The  back-up  battery  is  composed  of  three  AAA  cells  wired 
in  series  and,  if  used,  is  mounted  on  the  rail  over  the  system 
control  card. 
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Figure  6:  Interrogator  Memory  (64K)  Schematic 
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5.0  MODIFIED  BENTHOS  ELECTRONICS 


Slight  modifications  were  made  to  the  electronics  supplied 
by  BENTHOS.  The  effects  of  these  modifications  are  as  follows: 

a.  A  six-volt  tap  from  the  battery  stack  is  eliminated. 

b.  Transmitting  on  every  power-up  sequence  is  prevented. 

5.1  Logic  Board 


Refer  to  BENTHOS  drawing  B-210-248.  This  is  a  schematic 
for  the  LOGIC  board  which  must  be  modified  to  make  provision  for 
a  power-up  reset  pulse.  The  power-up  reset  pulse  originates  on 
the  system  control  card  and  inhibits  the  pinger  during  the  power 
on  cycles  which  occur  at  the  rate  of  one  per  minute.  Remove  the 
LOGIC  board  from  the  chassis  and  locate  IC  2,  a  CD4098B.  Remove 
the  etch  between  pins  3,  16,  and  13  of  IC  2.  Connect  pin  13  to 
pin  16  with  a  short  jumper.  Connect  pin  3  to  board  I/O  pin  10 
with  another  short  jumper.  Clean  the  board  of  flux,  and  re-coat 
the  patched  area  with  a  clear  acrylic. 


5.2  Back-Plane 


Clip  the  white  wire  from  the  pin  5  end  of  the  10K  ohm 
resistor  located  on  the  CAPACITOR  card  connector  between  pins  5 
and  7.  Connect  this  wire  to  pin  10  of  the  LOGIC  card  connector. 
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5.3  Battery  Stack 


Locate  the  12  pin  female  MOLEX  connector  which  exits  the 
battery  housing.  Remove  the  orange  wire  from  pin  1  of  this 
connector,  and  discard  it.  Remove  the  red  wire  from  pin  2  and 
place  it  in  pin  1.  Remove  the  white/red  trace  wire  from  pin  7 
and  place  it  in  pin  2. 

Refer  to  Figure  7.  This  is  a  schematic  of  the  modified 
stack.  Using  twenty-one  B1300-T2  alkaline  cells  and  two  1N4002 
diodes,  construct  such  a  stack  and  connect  it  to  the  molex 
connector  as  illustrated. 
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Figure  7:  Interrogator  Battery  Pack 
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Figure  8  Interrogator  UART  Clock  Generator 
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8.0  APPENDIX 


8.1  Deployment  History 


During  the  past  five  years,  the  interrogator  has  been 
successfully  employed  to  navigate  more  than  twenty  moorings  set 
as  part  of  five  major  Tomography  experiments  fielded  in  the  North 
Atlantic,  North  Pacific,  Gulf  of  Mexico,  the  Greenland  Sea  and 
the  Mediterranean. 

Twice  during  the  course  of  these  experiments  an  interrogator 
has  failed.  One  system  recovered  from  the  RTE-88  experiment 
failed  after  three  months  of  operation.  Interrogator  S/N  008  was 
recovered  from  the  Greenland  Sea  in  1989  with  a  completely 
depleted  battery.  On  inspection  a  leaky  cell  in  the  battery 
stack  was  discovered  and  may  have  caused  the  problem.  However, 
both  of  these  failures  might  also  be  attributed  to  a  marginal 
memory  component  forcing  the  program  to  "hang",  which  in  turn 
would  disable  power  switching  and  cause  the  battery  to  drain  at  a 
6  to  10mA  rate.  The  modification  recommended  at  the  end  of 
section  4.4  should  help  to  eliminate  this  type  of  failure. 
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Figure  9 


Interrogator  Program  Flow  Chart 


8.2  PNAVLGR  Program 
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TITLE  INTERROGATOR  CCNTROL/DATA  LOGGER  (PNAVLGR.MAC) 

SUBTIL  WOODS  HOE  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 


Ver.  1.1  27  Feb.  1985  By  Steve  Liberatore 

Copyright  (c)  1985  Woods  Hole  Oceanographic  Institution. 

All  rights  reserved. 

A  SAIL  compatible  micro-power  Controller  /  Data  Logger  for  the 
Benthos  Quad-M  Transceiver.  All  standard  1802  monitor  functions 
are  implemented  along  with  extensive  self  test  capabilities. 

The  60k  (FOOO)  RAM  memory  allows  space  for  7648  measurements. 
The  7649th  measurement  will  not  be  stored,  and  will  cause  the 
system  to  idle.  A  measurement  will  consist  of  a  16  bit  time 
code  word,  and  three  16  bit  two  way  travel  time  words.  When 
output  to  disk  there  will  be  two  measurements  per  line.  An  LSB 
of  travel  time  will  be  equivalent  to  250  uS. ,  and  time  will  be 
encoded  as  follows: 

BIT  i  15  14  13  12  11  10  9  8  7  6  5  4  3  2  1  0 
UNITS  HDHDTDTDTDTD  UD  UD  UD  UD  TO  TO  UH  UH  UH  UH 

WEIGHT  218421  8421218421 

Measurement  data  will  be  stored  in  memory  beginning  at  address 
1000H  and  ordered  as  follows: 

TIME  CODE,  TRAVEL  TIME  A,  TRAVEL  TIME  B,  AND  TRAVEL  TIME  C. 

To  assemble  this  program  using  the  IBM  PC/AT  system: 

First  execute  the  Z8CMU  ccnmand  to  enter  the  CP/M  SHELL 

1)  Type  M18  =PNAVLGR.MAC 

2)  After  the  system  prompt  type  L18. 

3)  After  the  LINK  prompt  type  /P:0000 

4)  Next  type  PNAVLGR , PNAVLGR/N/X/E 

5)  Answer  the  MOVE  question  with  N 

6)  At  the  system  prompt  re-enter  DOS  by  typing  E 

7)  Use  a  word  processor  to  divide  PNAVLGR. HEX.  The 

two  new  files  will  be  named  PRCM1.HEX  and  FRCM2.HEX. 

The  FROM  file  contains  addresses  0  thru  817  and  the 
PRCM2  file  contains  addresses  7FC  thru  FFF. 

8)  Next  type  MOVEHEX. 

9)  At  the  system  prompt  type  UDUNT. 

10)  To  bum  the  first  PRCM  type  PROffi.  and  to  bum  the 
second  PROM  type  PRCM2. 

11)  Return  to  the  system  by  typing  BYE 


C 

C 

C 

C 

C 

C 

C 

c 


INCLUDE  UNIT. MAC 
************* 

*  UNIT. MAC  * 
************* 


■+  IKES  SEGMENT  OF  CODE  WILL  INITIALIZE  ALL  REGISTERS  + 
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C 

t 

1000 

C 

RAM 

B2U 

1000H 

;  DEFINE  START  OF  RAM 

FOOO 

C 

SIZE 

EQU 

0F000H 

;  DEFINE  AMOUNT  OF  RAM 

FFOO 

C 

GLOBAL 

EQU 

RAM+SIZE-0100H  ;  DEFINE  GLOBAL  PAGE 

FEFF 

C 

STACK 

BQU 

RAM+SIZE-OIH  ;  STACK  BEGMS  HERE 

0000' 

L 

c 

/ 

CSEG 

;CODE  RELATT/ETADDRESS 

c 

n 

ORG 

0000H 

;  START  AT  0000 

0000' 

71 

V- 

c 

f 

MET: 

DIS 

;  DISABLE  INTERRUPTS 

0001' 

00 

c 

DB 

00H 

;SET  X  AND  P  TO  0 

0002' 

F8  00 

c 

LDI 

OOH 

;LQAD  ZEROS 

0004* 

A6 

c 

PLO 

R6 

;MIO 

0005' 

B6 

c 

PHI 

R6 

;R6  (SCRT  LINK) 

0006' 

A8 

c 

PLO 

R8 

;AND 

0007' 

B8 

c 

PHI 

R8 

;R8 

0008' 

A9 

c 

PUD 

R9 

;AND 

0009' 

B9 

c 

PHI 

R9 

;R9 

OOQA' 

AB 

c 

PUD 

RB 

;AND 

000B* 

BB 

c 

PHI 

RB 

;RB 

000C' 

AC 

c 

pm 

RC 

;AND 

000D' 

BC 

c 

PHI 

RC 

;RC 

000E* 

AD 

c 

pm 

RD 

;AND 

000F' 

BD 

c 

PHI 

RD 

;RD 

0010' 

AE 

c 

pm 

RE 

;AND 

0011' 

BE 

c 

PHI 

RE 

;RE 

0012' 

AF 

c 

pm 

RF 

;AND 

0013' 

BF 

c 

PHI 

RF 

;RF 

0014' 

F8  03' 

c 

mi 

HIGH 

(INTRFT)  ;SET  UP  R1  TO  BE 

0016' 

B1 

c 

PHI 

R1 

;THE  INTERRUPT  POINTER 

0017' 

F8  62' 

c 

LDI 

LCW 

(MIRPT) 

0019' 

A1 

c 

pm 

R1 

001A' 

F8  FF 

c 

U>I 

Him 

(STACK)  ;SET  UP  R2  TO  BE 

001C’ 

B2 

c 

PHI 

R2 

;THE  STACK  POINTER 

001D' 

F8  FF 

c 

mi 

LCW 

(STACK) 

001F* 

A2 

c 

pm 

R2 

0020' 

F8  03' 

c 

mi 

Him 

(OJCTIC)  ;SET  UP  R3  TO  BE  THE 

0022' 

B3 

c 

PHI 

R3 

;  PROGRAM  REGISTER 

0023' 

F8  A4' 

c 

mi 

LCW 

(oicnc) 

0025' 

A3 

c 

pm 

R3 

0026’ 

F8  00' 

c 

mi 

Him 

(CALL)  ;SET  UP  R4  EUR  THE 

0028' 

B4 

c 

PHI 

R4 

;CALL  ROUTINE  POINTER 

0029' 

F8  3A' 

c 

mi 

LCW 

(CALL) 

002B' 

A4 

c 

pm 

R4 

002C' 

F8  00’ 

c 

mi 

Him 

(RETURN) ;  SET  UP  R5  TO  BE 

002E' 

B5 

c 

PHI 

R5 

;THE  RETURN  POINTER 

002F' 

F8  4B' 

c 

mi 

LCW 

(RETURN) 

0031’ 

A5 

c 

pm 

R5 

0032' 

F8  FF 

c 

mi 

Him 

(GLOBAL)  ;SET  UP  R7  TO  BE 

0034* 

B7 

c 

PHI 

R7 

;TOE  GLOBAL  POINTER 

0035’ 

F8  00 

c 

mi 

LCW 

(GLOBAL) 

0037' 

A7 

c 

pm 

R7 

C 

C  ;At  this  point,  all  registers  are  preset,  so  execution 
C  ;begins  in  register  R3. 

C 


42 


INTERROGATOR  OCNTROL/DATA  DOGCER  (PNAVLGR.MAC)  MACRO-18  3.36 
WOODS  HOIE  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 


PAGE  1-2 


43 


INTERROGATOR  CCNTROL/DATA  LOGGER  (PNAVLSR.HAC)  MACRO-18  3.36 
WOODS  HOLE  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 


PAGE  1-3 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ERROR? 

GLO  RC 

EMU 


REACT  TO  FLAGS 
RECOVER  CHARACTER 
END  MACRO  DA? 


:Here  is  a  MACRO  which  will  call  SALTTY,  pass  the 
message  address,  and  react  to  errors  upco  exiting. 


TYPMSG  MACRO  MSG 
.SAIL 

CALL,  SALTTY 

Dtf  MSG 

ERROR? 

ENtH 


BEGIN  MACRO  TYPMSG' 

NO  LISTING 

CALL  SUBROUTINE  SALTTY 
PASS  MESSAGE 
REACT  TO  EIAGS 
END  MACRO  TYPMSG 


This  MACRO  recovers  the  SYSTEM  FUG.  This  flag  is 
stored  in  RAM  one  location  higher  than  the  character 
flag.  Bit  0  indicates  whether  or  not  the  system  is 
LOCKED,  and  bit  7  is  used  by  the  CRC  routine. 

The  remaining  bits  say  be  user  defined. 


MACRO 

;  BEGIN  MACRO  GETFLG 

.SAIL 

;N0  LISTING 

ILI 

01H 

/POINT  TO  FUG 

PLO 

R7 

UN 

R7 

;G£T  FUG 

ENDM 

;END  MACRO  GETFLG 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


INCLUDE  SCRT.MAC 

IUhtlUUUlt**** 

*  SCRT.MAC  * 

************ 

+THESE  ARE  THE  RCA  STANDARD  CAIL  AND  RETURN  ROUTINES.  + 

THIS  IS  THE  CALL  ROUTINE,  IT  RUNS  IN  R4 


0039’ 

D3 

C 

E3QTC: 

SET 

R3 

;R3  IS  POINTING  AT  THE  FIRST 

C 

,- INSTRUCTION  IN  THE  SUBROUTINE 

003A' 

c 

CALL:: 

/THIS  IS  A  "PUBLIC  ROUnNE" 

003A' 

E2 

c 

SEX 

R2 

/POINT  TO  THE  stack 

003B' 

% 

c 

GSL 

R6 

;PUSH  R6  CN  TO  THE  STACK 

003C' 

73 

c 

STXD 

;AND  PREPARE  IT  TO  POINT  TO 

003D’ 

86 

c 

GLO 

R6 

; ARGUMENTS.  THEN  DECREMENT 

003E' 

73 

c 

STXD 

;TO  A  FREE  LOCATION 

003F’ 

93 

c 

Oil 

R3 

;COPY  R3  TO  R6 

0040’ 

B6 

c 

PHI 

R6 

0041’ 

83 

c 

GLO 

R3 

0042’ 

A6 

c 

PLO 

R6 

0043’ 

46 

c 

IDA 

R6 

/GET  THE  SUBROUTINE  ADDRESS 

0044’ 

B3 

c 

PHI 

R3 

/AND  PASS  IT  TO  R3 

0045’ 

46 

c 

ILA 

R6 

0046’ 

A3 

c 

PLO 

R3 

44 
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LBR 

rare 

;RUN  THE  SUBROUTINE  IN  R3 

•THIS  IS  THE  RETURN  ROUTINE,  TT  RUNS  IN  RS 

/ 

EXTTR: 

SEP 

R3 

;  RETURN  TO  MAIN  PROGRAM 

RETURN: 

: 

;THTS  IS  A  "PUBLIC  ROUTINE* 

GUI 

R6 

;C0PY  R6  INTO  R3 

pm 

R3 

;R3  CCNIAINS  THE  RETURN 

GO 

R6 

;ABDRESS 

PIO 

R3 

SEX 

R2 

•POINT  TO  THE  STACK 

INC 

R2 

;GET  CtO  VALUE  OF  R6 

UKA 

;AND  RESTORE  IT  TO  R6 

PIO 

R6 

UK 

PHI 

R6 

f 

LBR 

EXTIR 

;RUN  MAIN  PROGRAM 

f 

INCLUDE 

ATOH.KAC 

************ 
*  ATCB.KAC  * 


*  ASCH  TO  HEXADECIMAL  CONVERTER  * 

(RC) 

Ttiis  sub-routine  convert s  the  ASCH  character  in  the 
low  half  of  RC  to  a  HEX  digit,  shifts  this  hex  digit 
four  (4)  places  to  the  left  and  returns  with  it  in 


0047' 

CO  0039' 

C 

C 

C 

C 

304A.' 

TO 

c 

004B' 

c 

004B* 

% 

c 

004C' 

B3 

c 

004D' 

86 

c 

004E' 

A3 

c 

004F' 

E2 

c 

0050' 

12 

c 

0051' 

72 

c 

0052* 

A6 

c 

0053' 

FV 

c 

0054' 

B6 

c 

0055* 

CO  004A' 

c 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


0058' 

8C 

C 

0059' 

EF  30 

c 

005B’ 

CB  0081' 

c 

005E' 

BC 

c 

005F’ 

8C 

c 

0060' 

EF  47 

c 

0062' 

a  0081' 

c 

0065’ 

9C 

c 

0066' 

FF  OA 

c 

0068' 

CB  0077' 

c 

006B' 

9C 

c 

006C' 

FF  11 

c 

006E' 

CB  0081’ 

c 

0071’ 

9C 

c 

0072' 

FF  07 

c 

0074’ 

CO  0078' 

c 

0077' 

9C 

c 

0078' 

FE 

c 

0079' 

FE 

c 

007A* 

FE 

c 

OOTB' 

FE 

c 

007C' 

AC 

c 

;the  low  half  of  RC. 

ATOH::  GLO 

RC 

SMI 

"0" 

L£NF 

AERRCR 

PHI 

RC 

GO 

RC 

SMI 

"G" 

IHDF 

AERRCR 

GHI 

RC 

SMI 

QAH 

L£NF 

HDCNE 

GEL 

RC 

SSL 

11H 

IBNF 

AERRCR 

GHI 

RC 

SMI 

07H 

LBR 

SHIFT 

HDCNE:  (SI 

RC 

SHIFT:  SHL 

SHL 

SHL 

SHL 

PIO 

RC 

GET  THE  ASCII  CHAR. 
TOO  SMALL  ? 

IF  SO  GOTO  ERRCR 
SAVE  RESULT 
RESTOKE 
TOO  LARGE  ? 

IF  90  GOTO  H®0R 
CHAR  MINUS  ASCH  BIAS 
IS  IT  0  THROUGH  9  ? 

IF  SO  CONVERT  IS  DCNE 

RESTORE 

IS  IT  ASCII  ? 

IF  NOT  GOTO  ERROR 
RESTORE 

REMOVE  ALPHA  BIAS 
GOTO  SHIFT 
RESTORE 

SHIFT  I£ET  4  TOES 


;HEX  DIGIT  TO  RC  LCM 
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PACE  1-5 


007D' 

F8  00 

C 

IDI 

00H 

;  CLEAR  JUROR  FLAGS 

007?' 

BC 

C 

PHI 

RC 

;AND  NCN-HEX  FLAG 

c 

RETURN 

;BACK  TO  MAIN 

0080' 

D5 

C+ 

0081' 

pa  oi 

c 

AJRROR:  IDI 

GIB 

;SET  NCN-tlEX  FLAG 

0083' 

BC 

c 

PHI 

RC 

c 

RETURN 

.-BACK  TO  MAIN 

0084' 

D5 

c+ 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INCLUDE  HTOA.MAC 
************ 

*  HTOA.MAC  * 
************ 


+  HEXADECIMAL  TO  ASCII  OONVERMR  + 

(RC) 

Ibis  sub-routine  converts  the  HEX  digit  in  the 
lew  half  of  RC  to  an  ASCII  character,  and  returns 
with  ♦■hi*!  character  in  the  high  half  of  RC. 


0085' 

8C 

C  HTOA::  GUO  RC 

;GET  THE  HEX  DIGIT 

0086' 

EA  OF 

C 

ANI  OFH 

;MASX  HIGH  BYTE 

0088' 

PC  30 

C 

ADI  30H 

;ADD  ASCH  BIAS 

008A' 

BC 

C 

PHI  RC 

;SAVE  RESULT 

008B' 

FF  3A 

C 

SMI  3AH 

;IS  rr  NUMERIC  ? 

008D' 

CB  0094' 

C 

IDNF  ADCNE 

;IF  SO  CONVHCT  IS  DCNE 

0090' 

9C 

C 

GHI  RC 

;  OTHERWISE, 

0091’ 

PC  07 

C 

ADI  07H 

;ADD  ALPHA  BIAS 

0093' 

BC 

C 

PHI  RC 

;SAVE  RESULT 

0094' 

c  ADONE:  RETURN 

;REIURN  TO  MAIN 

0094' 

D5 

C+ 

C 

C 

INCLUDE  DTOA.MAC 

c 

************ 

c 

*  DTOA.MAC  * 

c 

c 

************ 

c 

c 

+  ADD  ASCH  BIAS  AND  STORE  + 

c 

c 

(RC) 

c 

This  subroutine  will  add  30  hex  to  the  tyte 

c 

pointed  at  by  R7,  store  the  result  using  RA 

c 

as  a  pointer,  then  increment  the  pointers. 

c 

This  operation  will  be  repeated  n  times  as 

c 

specified  by  the  in-line  byte  following  the 

c 

;call  instruction. 

0095' 

46 

c 

c 

CrrOA:  IDA  R6 

;GET  REPEAT  VALUE 

00%' 

AC 

c 

FLO  RC 

;SET  COCNTTR 

0097' 

47 

c 

ADBIAS:  IDA  R7 

;GET  DIGIT 

46 
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0098' 

FC  30 

C 

009 A' 

5A 

C 

009B' 

1A 

C 

009C' 

2C 

C 

009D' 

8C 

C 

009E' 

CA  0097' 

C 

c 

00A1' 

D5 

C+ 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


00A2' 

46 

C 

00A3' 

BC 

C 

00A4' 

46 

C 

00A5' 

AC 

C 

00A6' 

9C 

C 

0QA7' 

CA  00B2* 

C 

OOAA' 

8C 

C 

OOAB* 

C2  00B6' 

C 

OOAE' 

ac 

C 

OOAF' 

CO  00A6' 

C 

00B2' 

8C 

C 

OOB3’ 

CO  OOAE' 

c 

00B6' 

C 

OOB6' 

D5 

c+ 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ADI 

30H 

SIR 

RA 

INC 

RA 

DEC 

RC 

GLO 

RC 

IDNZ 

ADBIAS 

RETURN 

INCLUDE  DELAY. MAC 

************* 

*  DELAY. MAC  * 
************* 

(RC) 


+  DELAY  PROGRAM  EXECUTION  + 


DELAY: 

IDA 

R6 

PHI 

RC 

IDA 

R6 

PIT 

RC 

TSTHIC: 

cam 

RC 

LBNZ 

WST5 

ao 

RC 

IBZ 

EXELY 

rare: 

rar 

RC 

IDR 

Tsimc 

VST5: 

(3D 

RC 

IDR 

DETC 

EXDLY: 

RETURN 

;ADD  ASCII  EEC.  BIAS 
;  STORE  RESULT 
;  ADVANCE  POINTER 
;  COUNT  OPERATION 
•TEST  OOUNIER 
;EXIT  IF  DONE 
;  OTHERWISE  CONTINUE 


:L0AD  DELAY  CONSTANT 
:USE  RC  AS  A  DOWN  COUNTER 


;OCNTINUE  TESTING  RC 
■WHEN  EQUAL  TO  ZERO 
:SPEJCmE3)  TIME  HAS 
ELAPSED,  OTHERWISE 
:EBC  COUNTER  AND  TEST  FOR 
NCN  ZERO  VALUE 
:  EQUALIZE  COUNTER  LOCPS 
:AND  OCNTIIUE 

:  RETURN  TO  MAIN  WHEN  COUNT  =  OOOO 


INCLUDE  RSB2A.MAC 

*  RSB2A.MAC  * 
************* 


:+  RIGHT  SHUT  n  BITS  FROM  RB  TO  RA  + 


(RA,  RB,  RC) 

Ibis  subroutine  will  right  shift  a  single  bit 
fran  register  B  to  register  A.  This  operation 
will  be  repeated  a  number  of  times  as  specified 
by  the  byte  following  the  call  instruction. 


:This  subroutine  will  delay  program  execution  by  an  amount 
•of  time  equivalent  to  (120N  +168)  /Fc  where  Fc  is  the  system 
■clock  frequency  and  N  is  a  two  byte  value  specified  by  the 
: bytes  following  the  call  instruction.  SCKT  is  expected. 


47 


interrogator  ocwnwL/nm  wgsr  (fnavlgr.mac)  rnso-is  3.36 

WOODS  HOLE  OCEANOGRAPHIC  INST.  OCEAN  ENGBERING 


PAGE  1-7 


0087' 

46 

C 

RSB2A: 

IDA 

R6 

REPEAT  VALUE 

0088' 

AC 

C 

PLiD 

RC 

;USE  RC  AS  A  OOUNTTR 

0089' 

9B 

C 

SHRB: 

an 

RB 

;Riarr  shift  a  bit 

OOBA' 

F6 

C 

SHR 

;FROK  RB  TO  RA 

u(Mr 

8b 

c 

PHI 

RL 

OOBC' 

88 

c 

GLD 

RB 

OOBD' 

76 

C 

RSHR 

OOBE* 

AB 

c 

PLO 

RB 

OOBF' 

9A 

c 

GHI 

RA 

OOCO' 

76 

c 

RSHR 

ooa' 

BA 

c 

m 

RA 

00C2' 

8A 

c 

<2£) 

RA 

00C3' 

76 

c 

RSHR 

00C4' 

AA 

c 

PIO 

RA 

00C5' 

2C 

c 

ISC 

RC 

;  INCREMENT  COUNTER 

00C6' 

8C 

c 

glo 

RC 

;TEST  FOR  ZERO  AND 

00C7' 

CA  00B9* 

c 

I£NZ 

SHRB 

;IF  FOUND 

c 

RETURN 

;  RETURN  TO  MAIN 

OOCA* 

D5 

c+ 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INCLUDE  SALTTY.MAC 

*«***Ail*A***** 

*  SALTTY.MAC  * 


+  TYPES  MESSAGE  NAMED  AFTER  OIL  + 

(RC) 

This  subroutine  will  type  the  message  indicated 
by  the  call.  The  loop  will  be  continually  monitored. 
Any  error  condition  will  cause  this  routine  to 
exit.  The  status  word  and  the  last  character  typed 
will  be  available  in  RC  upon  exiting  this  routine. 


OOCB' 

C 

SALTTY:: 

A  PUBLIC  ROUTINE 

OOCB’ 

E7 

c 

SEX 

R7 

USE  R7  AS  THE  POINTER 

OOCC' 

F8  04 

c 

IDI 

LCW  (SCRACH-1) 

POINT  TO  A  SCRATCH 

OOCE' 

A7 

c 

PUD 

R7 

UXATICN  IN  RAM 

OOCF' 

8A 

c 

GLO 

RA 

SAVE  OU)  ADDRESS 

OODO' 

73 

c 

STXD 

POINIER 

OODl' 

9A 

c 

(SI 

RA 

00D2' 

73 

c 

STXD 

00D3' 

46 

c 

LDA 

R6 

GET  HIGH  HALF  OF 

0004' 

BA 

c 

PHI 

RA 

HESSA03  ADDRESS 

OOD5' 

46 

c 

IDA 

R6 

•0E7T  I£W  HAIFCF 

00D6' 

AA 

c 

PUD 

RA 

•MESSAGE  ADDRESS 

c 

c 

9 

;  Eh  ter  the  subroutine  here  if  the  address  of  the  data 

c 

n 

;to  type  is  already  in  register  RA. 

OOD7' 

ET7 

v 

c 

9 

ITYPE::  SEX 

R7 

USE  R7  AS  THE  POINTER 

OOD8' 

F8  00 

c 

IDI 

OOH 

POINT  TO  A  SCRATCH 

OODA' 

tc 

c 

PUD 

R7 

LOCATION  IN  RAM 
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OODB' 

6E 

C 

OODC' 

E7 

C 

OODD' 

6F 

C 

OODE' 

FA  10 

C 

OOEO' 

C2  00E9' 

C 

00E3  ‘ 

F8  80 

C 

00E5' 

BC 

c 

00E6' 

CO  010B' 

c 

00E9' 

6F 

c 

OOEA' 

FE 

c 

OOEB' 

CB  OODC' 

c 

OOEE' 

OA 

c 

OOET 

FB  7E 

c 

OOET 

C2  010B' 

c 

OOF4' 

EA 

c 

00F5' 

66 

c 

c 

00F6' 

D4 

c+ 

OOET 

0145' 

c+ 

00F9' 

9C 

c 

OOFA* 

a  oiob' 

c 

OOFD' 

2A 

c 

OOFE' 

EA  . 

c 

OOFF' 

8C 

c 

0100' 

F3 

n 

0101* 

CA  0108' 

c 

0104* 

1A 

c 

0105' 

CO  OODC' 

c 

0108' 

F8  02 

c 

01QA' 

BC 

c 

010B' 

F8  03 

c 

010D' 

A7 

c 

010E' 

47 

c 

010F’ 

BA 

c 

0110' 

47 

c 

0111' 

AA 

c 

c 

0112' 

D5 

c+ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

0113' 

c 

0113' 

D4 

c+ 

0114' 

OOCB' 

c+ 

INP  DATA 

TORE?:  SEX  R7 

INP  STATUS 

ANI  10H 

LBZ  TSTOR 

LDI  80H 

PHI  RC 

IBR  TXIT 

TSTOR:  INP  STATUS 

SHL 

IBNF  TORE? 

UN  RA 

XRI  STOP 

LBZ  THT 

SEX  RA 

CUT  DATA 

CALL  INCHAR 


GHI  RC 

IBNZ  TXIT 
TEC  RA 

SEX  RA 

<30  RC 

XCR 

L£NZ  BADCHR 
INC  RA 

IBR  TORE? 
BADCHR:  LDI  02H 

PHI 

TXTT:  LDI 
PLD 

IDA  R7 

PHI  RA 

LDA  R7 

PLO  RA 

RETURN 


CLEAR  UART  DA  BIT 
RESET  POINTER  TO  R7 
GET  UART  STATUS 
IS  TOE  UXE  OPEN  ? 

IF  NOT  TEST  FOR  TORE 
OTHERWISE, 

SET  FLAG 
AND  RETURN 
GET  UART  STATUS 
IS  TOE  TORE  ? 

IF  NOT,  KEEP  TOYING 
GET  NEXT  CHARACTER 
MESSAGE  OVER  ? 

IF  SO  EXIT 
OTHERWISE,  TYPE  TOE 
CHARACTER 

fCNITCR  TOE  LOOP  FOR 


;ANY  ERRORS  ? 

;IF  SO,  EXIT 
;WAS  TOE  LAST  CHAR. 

;  TYPED  TOE  SAME  AS 
;TOE  CHARACTER  JUST 
;  RECEIVED  ? 

,*IF  SO, 

; REPOSITION  POINTER 
;AND  CONTINUE 
; OTHERWISE,  SET  ELAG 

;  RESTORE  OLD  ADDRESS 
;  POINTER 


;AND  RETURN 


INCLUEE  ASKOK.MAC 

*  ASKOK.MAC  * 


+  ASK  EUR  FINAL  PERMISSION  TO  CARRY  COT  A  COMMAND  + 


;Type  CK  ?  (Y/W  and  input  a  response.  Set  RC.O  to  00 
;upcn  detecting  a  "Y".  Exit  upon  detecting  any  error 
;with  the  UART  status  vord  remaining  in  RC.l. 

/ 

ASKDK:  CAIL  SALTTY  ;ASK  OK  ? 


RC 

LOW  (SCRACH-2) 
R7 
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0116' 

0118' 

0119' 

011C' 

011D’ 

onr 

0120' 

0123' 

0124’ 

0126' 

0129* 

012k' 

012A' 


012B’ 

012C' 

012D’ 

012E* 

012F' 

012F* 

0130' 

0D2' 

0133’ 

0136’ 

OUT 

0138’ 

0139’ 

013C’ 

013D’ 

ODF' 

0140' 

0143' 

0144’ 

0144’ 


0423' 

c 

DW 

9C 

c 

ghi 

CA  012A' 

c 

LBNZ 

c 

CAIIi 

D4 

c+ 

0145’ 

c+ 

9C 

c 

<3n 

CA  012A* 

c 

LBNZ 

8C 

c 

<ax> 

FB  59 

c 

XRI 

a  012A' 

c 

LBNZ 

AC 

c 

PLO 

c 

EXASK:  REIUR 

D5 

c+ 

OK? 

RC 

;LOOK  FOR  UART  ERRORS 

EXASK 

;E50T  IF  POUND 

INCHAR 

;GET  RESPONSE 

RC 

;LXK  FOR  UART  ERRORS 

EXASK 

;EXIT  IF  POUND 

RC 

;WAS  THE  RESPONSE  A  "V"  ? 

iffyti 

;IF  NOT  EXIT 

EXASK 

; OTHERWISE,  SET  RC.O 

RC 

,*TO  00  AND  EXIT 

;TO  SAIL 

46 

BA 

46 

AA 

D4 

0145' 

SC 

CA  0144’ 
8C 
EA 
F3 

CA  0143' 
1A 

F8  7E 
F3 

CA  012F’ 
AC 

D5 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c+ 

c+ 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c+ 

c 

c 

c 

c 


include  ockpar.mac 

*  CCE!P AR. MAC  * 


■*  OCMPARE  RECEIVED  SIRING  WITH  STORED  SIRING  + 


(RA  +  RC) 

This  subroutine  will  sequentially  input  characters 
and  compare  them  with  a  character  strii#  stored  in 
permanent  memory.  Unsuccessful  comparisons  will 
cause  the  subroutine  to  exit  leaving  a  nen-zero 


result  in  the  low  half  of 


OCMPAR:  IDA 

R6 

PHI 

RA 

IDA 

R6 

PLO 

RA 

CTST:  CALL 

INCHAR 

GET 

RC 

IBNZ 

OffXIT 

GUO 

RC 

SEX 

RA 

XOR 

LBNZ 

DIFFER 

INC 

RA 

LDI 

STOP 

XCR 

IBNZ 

CTST 

DIETER: 

PLO 

RC 

QffXLT: 

RETURN 

INCLUDE  INCHAR. MAC 

**★»*★*★» k kk** 

*  INCHAR. MAC  * 


register  C 

;GET  ADDRESS  OF 
;WCRD  TO  OCMPARE 
;USE  RA  AS 
;  CHARACTER  POINTER 
;GET  A  CHARACTER 


;L0CK  FDR  FLAGS 
rIF  POUND  EXIT 
; OTHERWISE,  OCMPARE 

;wrra  stored  character 

;ASE  THEY  THE  SAME  ? 
;IF  NOT  EXIT 
;WAS  THAT  THE  LAST 
;  CHARACTER  TO  BE 
;  COMPARED  ? 

;IF  NOT  OONTINUE 
;ELSE  SET  OCMPARE 
;FLAG  AND  RETURN 
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pact:  1-10 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


************** 


+ INPUT  CHARACTER  AND  UART  STATUS  FLAG  TO  REGISTER  C  + 
(RC) 

This  subroutine  will  monitor  the  UART  until 
either  the  LOOP  is  open  or  data  is  available. 

If  data  is  available,  the  character  will  be 
input  and  placed  in  the  lew  half  of  RC.  The 
;high  half  of  RC  will  contain  the  status  flag. 


0145' 

C 

0145' 

F8  00 

C 

0147' 

A7 

C 

0148’ 

BC 

C 

0149’ 

E7 

C 

014A' 

6F 

C 

014B' 

FA  10 

C 

014D' 

C2  0154' 

C 

0150' 

F8  80 

C 

0152' 

BC 

C 

C 

0153' 

D5 

c+ 

0154' 

07 

c 

0155' 

F6 

c 

0156* 

CB  014A' 

c 

0159' 

FA  05 

c 

0158' 

C2  0162’ 

c 

015E' 

F8  20 

c 

0160' 

BC 

c 

c 

0161' 

D5 

c+ 

0162' 

6E 

c 

0163' 

AC 

c 

0164' 

EH  23 

c 

0166' 

CA  016C' 

c 

0169' 

F8  40 

c 

016B' 

BC 

c 

016C' 

c 

016C' 

D5 

c+ 

INCHAR:: 

IDI 

00 

PLO 

R7 

PHI 

RC 

SEX 

R7 

NDA:  INP 

STATUS 

ANI 

10H 

IDZ 

TSTDA 

IDI 

80H 

PHI 

RC 

REJtURN 

TSTDA:  IDN 

R7 

SHR 

IDNF 

NDA 

ANI 

05H 

LBZ 

DATAIN 

IDI 

20H 

PHI 

RC 

RETURN 

DATAIN:  DIP 

DATA 

PLO 

RC 

XRI 

ll|N 

IDNZ 

DADCNE 

IDI 

40H 

PHI 

RC 

DADCNE:  RETIURN 


A  PUBLIC  ROUTINE 
POINT  TO  A  SCRATCH 
LOCATION 

RESET  STATUS  FLAGS 
X  POINTS  TO  SCRATCH 
GET  UART  STATUS 
IS  THE  LOOP  CLOSED  ? 
IF  SO  TEST  FOR  DA 
OTHERWISE, 

SET  ERROR  FLAG 
AND  REHURN 

;  RESTORE  STATUS 
;IS  DATA  AVAILABLE  ? 
;IF  NOT,  TRY  AGAIN 
;C  THERVflSE.LOCK  FOR 
;FRRCRS 

;JF  FOUND  SET  FLAG 
;AND 

;EXTT.  OTHERWISE, 

;GET  THE  CHARACTER 
;AND  PLACE  IN  RC  LCW 
;IS  IT  A  "#" 

;IF  NOT  RETURN 
;  OTHERWISE  SET 
;FLAG  THEN 
;  RETURN  TO  MAIN 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


INCLUDE  GEIHEX.MAC 
************** 

*  GEIHEX.MAC  * 
************** 


+  LOAD  RB  WITH  A  FOUR  DIGIT  HEX  NUMBER  + 

(RB  +  RC) 

This  subroutine  will  load  RB  with  a  four  digit  hex 
number.  Only  the  last  fair  hex  digits  typed  are 
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C  ; entered.  Nor  hex  entries  will  cause  this  routine 
C  ;to  exit. 

C  ; 


016D' 

C 

GETHEX:: 

;ms  WIIL  BE  A  PUBLIC 

016D* 

F8  00 

C 

LDI 

00H 

:  CLEAR  REGISTER  B 

016F' 

AB 

C 

PLO 

RB 

0170' 

BB 

C 

PHI 

RB 

0171* 

C 

GETCHR:  CALL 

INCHAR 

;<3T  A  CHARACTER 

0171' 

D4 

c+ 

0172' 

0145* 

c+ 

0174' 

9C 

c 

Gfc il 

RC 

.-TEST  UART  EUR  ERRORS 

0175' 

CA  0195' 

c 

L£NZ 

XGEIH 

;IF  ECU®  EXIT 

c 

CALL 

ATOH 

.’CONVERT  ASCn  TO  HEX 

0178* 

D4 

c+ 

0179' 

0058' 

c+ 

017B' 

9C 

c 

(SI 

FC 

;LOCK  PGR  NGN-HEX  ENTRY 

017C* 

CA  0195' 

c 

L£NZ 

XGETH 

;IF  POUND  EXIT,  ELSE 

017F* 

8C 

c 

G W 

RC 

.•TRANSFER  HEX  DIGIT 

0180* 

BC 

c 

PHI 

RC 

;TO  HIGH  HALF  OS'  RC 

0181* 

P8  04 

c 

ILI 

04 

;  PREPARE  TO  SHIFT 

0183' 

AC 

c 

pin 

RC 

.•HEX  CHARACTER  TO  RB 

0184' 

9C 

c 

SBIFTC:  GEL 

RC 

;  BEGIN  SHIFT 

0185' 

EE 

c 

SSL 

0186' 

BC 

c 

PHI 

RC 

0187' 

8B 

c 

GLO 

RB 

0188' 

7E 

c 

RSHL 

0189’ 

AB 

c 

PUD 

RB 

018A' 

9B 

c 

GHI 

RB 

018B' 

7E 

c 

RSHL 

018C' 

BB 

c 

PHI 

RB 

018D' 

2C 

c 

DEC 

RC 

;IS  THIS  THE  FOURTH 

018E' 

8C 

c 

GUD 

RC 

;  SHEET  ? 

018F' 

CA  0184' 

c 

LBNZ 

SHTTC 

;IF  NOT  SHIFT  AGAIN 

0192' 

CO  0171' 

c 

LBR 

GETCHR 

.'ELSE  GST  NEXT  DIGIT 

0195' 

c 

XGET3:  RETURN 

;EXTT 

0195' 

D5 

c+ 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


INCLUDE  INDSC.MAC 

*  IMJEC.MAC  * 


;  +  INPUT  AND  STORE  DECIMAL  NUMBERS  + 

;  (R9,RA,RB,RC,RD) 

;This  subroutine  will  input  and  store  n  decimal  digits 
.•beginning  at  the  address  specified  by  the  two  bytes 
; following  the  ran  instruction.  The  number  of  bytes 
;to  store  is  specified  by  the  single  byte  following 
;the  call.  Only  the  last  n  digits  typed  will  be  stored. 
.•Errors  and  non-decimal  entries  cause  an  exit  which 
,* leaves  the  status  word  in  RC.l  and  the  last  digit 
.-type  in  RC.O.  NOTE:  n  may  not  be  greater  than  4. 
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C 


01%' 

46 

C 

INDEC:  IDA 

R6 

0197' 

BD 

C 

PHI 

RD 

0198' 

46 

C 

IDA 

R6 

CT99' 

AD 

C 

PLO 

RD 

019A' 

F8  00 

C 

12)1 

OOH 

019C* 

AB 

C 

PLO 

RB 

019D' 

3B 

c 

PHI 

RB 

019E* 

c 

GETDEC:  CAID 

INCHAR 

019E' 

D4 

c+ 

019F' 

0145' 

c+ 

01A1' 

9C 

c 

RC 

01A2' 

CA  01C9' 

c 

LBNZ 

XINDEC 

c 

CALL 

ATCB 

01A5' 

D4 

c+ 

01A6' 

0058' 

c+ 

01A8' 

9C 

c 

GET 

RC 

01A9' 

CA  01C9' 

c 

LBNZ 

XINDEC 

01AC' 

8C 

V, 

<30 

RC 

01AD' 

FF  AO 

c 

SMI 

QAOH 

01AF* 

C3  01C6* 

c 

IBDF 

JUNE 

01B2' 

F8  04 

c 

LDI 

04 

01B4' 

A9 

c 

PUD 

R9 

01B5' 

8C 

c 

SHFTC:  (30 

RC 

01B6' 

EE 

c 

SHL 

01B7' 

AC 

c 

PLO 

RC 

01B8' 

8B 

c 

<30 

RB 

01B9’ 

7E 

c 

RSHL 

01BA' 

AB 

c 

PLO 

RB 

01BB' 

SB 

c 

on 

RB 

01BC 

7E 

c 

RSHL 

01BD' 

BB 

c 

PHI 

RB 

013E' 

29 

c 

DEC 

R9 

OlEk' 

89 

c 

(323 

R9 

0100* 

a  01B5' 

c 

LBNZ 

SHFTC 

oia’ 

CO  019E' 

c 

IDR 

GEITBC 

c 

/ 

01C6’ 

F8  01 

c 

JUNE:  LDI 

01H 

01C8* 

BC 

c 

PHI 

RC 

01C9‘ 

22 

c 

XINEBC:  ISC 

R2 

01CA’ 

8C 

c 

<323 

RC 

01CB’ 

73 

c 

STXD 

01CC 

9C 

c 

on 

RC 

01CD* 

73 

c 

STXD 

01CE’ 

46 

c 

IDA 

R6 

01CF’ 

A9 

c 

PLO 

R9 

01D0’ 

c 

STRDEC:  CAU. 

RSB2A 

OIDO' 

D4 

c+ 

01D1' 

00B7' 

c+ 

01D3' 

04 

c 

CB 

04H 

01D4' 

9A 

c 

GHI 

RA 

01D5' 

F6 

c 

SHR 

01D6' 

F6 

c 

SHR 

01D7* 

F6 

c 

SHR 

01D8' 

F6 

c 

SHR 

01D9' 

5D 

c 

STR 

RD 

53 


PACE  1-12 


;GET  STORE  ADDRESS 
;AND  PLACE  IN  RD 


;ZERO  REGISTER  B 


;G£T  A  CHARACTER 


TEST  FOR  ERRORS 
EXIT  IF  ERROR  IS  FOUND 
CONVERT  TO  SEX 


;EXTT  IF  EOT  HEX 

;TEST  EOR  DECIMAL 
;AND  SET  ERROR  EUG 
;IF  NOT  DECIMAL 
; OTHERWISE,  USING  R9 
;AS  A  OOUOTER,  SHIFT 
;1HE  ClGTT  A  BIT  AT 
;TIME  TO  RB. 


TEST  EOR  FOURTH  SHIFT 
:  SHIFT  AGAIN  IF  NOT  DONE 
: OTHERWISE,  GET  NEXT  DIGIT 

:  INDICATE  NON-DBCTHAL 
;AND  RETURN  TO  SAIL 
;SAVE  THE  CONTENTS 
;CF  REGISTER  C 


GET  NUMBER  OF  DIGITS 
TO  STORE 

SHUT  A  DIGIT  TO  RA 


;  SHIFT  TO  LSB 


;  STORE  DECIMAL  DIGIT 
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OIDA' 

2D 

C 

DEC 

RD 

;  ADJUST  POINT® 

OH®' 

29 

C 

Mr 

R 9 

OlDC' 

89 

C 

GLO 

R9 

;  STORED  N  DIGITS  ? 

011®' 

ca  01D0' 

C 

LBNZ 

STRDBC 

;U  SO  RESTORE  RC 

OlEO' 

12 

C 

INC 

R2 

01EL’ 

42 

C 

LDA 

R2 

01E2' 

BC 

C 

PHI 

RC 

01E3' 

42 

C 

LDA 

R2 

01E4' 

AC 

C 

PUD 

RC 

RETURN 

;  RETURN  TO  SAIL; 

01ES' 

D5 

+ 

C 

INCLUDE  PECQN.MAC 

C 

************* 

c 

*  PHJON.MAC  * 

c 

c 

************* 

c 

c 

+  PROMPTS  FCR  AND  LOADS  RB  HUE  A  HEX  NUMBER  + 

c 

c 

(RC) 

c 

This  subroutine  will  prompt  the  operator  far 

c 

a  hex  number  using  the  prompt  message  addressed 

c 

•by  the  in-line  code  after  the  call  instruction. 

C 

Only  the  last  four  hex  digits  typed  are  entered. 

c 

UART  errors  and  non-hex  entries  cause  this  routine 

C 

to  exit  with  a  ncn-zero  value  remaining  in  RC.l 

01E6' 

V- 

c 

=H30N:: 

;A  PUBLIC  ROUTINE 

01E6' 

E7 

c 

SEX 

R7 

.•USING  R7  AS  A  POINTER 

01E7* 

F8  09 

c 

LDI 

UN 

(SCRACH+4)  ;SAVE  THE  OOKIUnS  CF 

0113' 

A7 

c 

FLO 

R7 

.-RESIST®  RA 

01EA' 

8A 

c 

GLO 

RA 

;  FIRST  THE  LCH  HALF 

OlIB' 

73 

C 

SIXD 

our 

9A 

c 

GEI 

RA 

OlIB' 

73 

c 

STXD 

;THEN  THE  HIGH  HAIF 

01EE' 

46 

c 

LDA 

R6 

;GET  HIGH  HALF  OF 

our 

BA 

c 

PHI 

RA 

;  MESSAGE  ADDRESS 

out)* 

46 

c 

LDA 

R6 

;®r  LOW  HALF  OF 

01F1' 

AA 

c 

PLO 

RA 

;  MESSAGE  ADDRESS 

c 

CAUL 

mPE 

.•TYPE  THE  MESSAGE 

0U2* 

D4 

C+ 

01F3' 

00D7’ 

C+ 

0U5' 

9C 

c 

GEI 

RC 

.-LOOK  TOR  UART  ERRORS 

01F6' 

a  0211’ 

C 

l£NZ 

E2PHXN 

;JEXTT  IF  FOUND 

C 

CAID 

GETHEX 

;GET  THE  HEX  NUMBER 

01F9' 

D4 

C+ 

01FA' 

016D' 

C+ 

out:* 

9C 

c 

(ALL 

RC 

;GET  THE  STATUS  HCRD 

OlIB' 

FA  FE 

C 

ANI 

OFTH 

.•MASK  NCtf-HEX  FLAG 

OUT" 

CA  0211’ 

c 

IDNZ 

EXPHXN 

;EXTT  CN  UART  ERRORS 

0202' 

8C 

c 

GLO 

RC 

.-HAS  THE  NCN-HEX  ENIHY 

0203' 

FB  20 

c 

XRI 

SPACE 

;A  SPACE  ? 

0205' 

C2  0219' 

c 

LBZ 

QRCLO 

;IF  SO  RESET  ERROR  FLAG 

0208' 

8C 

c 

GLO 

RC 

;VAS  THE  NCtf-HEX  ENIKY 

0209' 

FB  OD 

c 

XRI 

CR 

;A  CARRIAGE  RETURN  ? 

020B' 

C2  0219’ 

c 

LDZ 

ORCLO 

;IF  SO  RESET  ERROR  FLAG 
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020E* 

F8  10 

c 

IDI 

10H 

OTHERWISE  INDICATE 

0210* 

BC 

c 

PHI 

RC 

A  NCN-HEX  ENTRY  AND 

0211* 

F8  08 

c 

EXPHXN:  IDI 

KW  (SCRACH+3) 

PREPARE  TO  RESTORE  RA 

0213' 

A7 

c 

PLO 

R7 

0214' 

47 

c 

IDA 

R7 

GET  OLD  RA  HI 

0215’ 

BA 

c 

PHI 

RA 

PUT  IT  BACK 

0216' 

47 

c 

IDA 

R7 

GET  OLD  RA  lO 

0217’ 

AA 

c 

PLO 

RA 

PUT  IT  BACK 

c 

RETURN 

GO  BACK  TO  SAIL 

0218' 

D5 

c+ 

0219’ 

F8  00 

c 

$ 

CLRCLO:  IDI 

00 

■CLEAR  ERROR  FLAGS 

021B' 

BC 

c 

PHI 

RC 

021C' 

CO  0211’ 

c 

IDR 

EXPHXN  ; RETURN  TO  SAIL 

C 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


INCLUDE  TYPEC.MAC 

**<UUUUlAJUUUA 

*  TYPES. MAC  * 

+  OCNVERT  THE  CONTENT  OF  RC  TO  ASCII  AND  TYPE  + 

(RC) 

This  subroutine  couverts  the  hex  contents  at 

the  lew  half  of  RC  to  two  ASCII  characters,  stores 

the  characters  at  "ASCII",  and  types  them  via  SALTTY. 


021F' 

C 

TYPES::  CAIL 

HIQA 

.•CONVERT  LOW  BYTE 

0211" 

D4 

c+ 

0220' 

0085' 

c+ 

0222' 

F8  07 

c 

IDI 

LOW  (SCRACH4-2) 

.•PREPARE  TO  STORE 

0224' 

A7 

c 

FID 

R7 

.•RESULT  CF  OCNVERT 

0225' 

ET7 

c 

SEX 

R7 

0226' 

F8  7E 

c 

IDI 

STOP 

;  STORE  TTY  STOP 

0228' 

73 

c 

SIXD 

0229’ 

9C 

c 

GUI 

RC 

;GBT  RESULT  CF  CONVERT 

022A' 

73 

c 

STXD 

.-AND  STORE  IT 

022B' 

8C 

c 

(3D 

RC 

.-GET  READY  TO  CONVERT 

022C' 

F6 

c 

SHR 

;LCW  ORDER  BYTE 

022D' 

F6 

c 

SHR 

022E' 

F6 

c 

SHR 

022F' 

F6 

c 

SHR 

0230' 

AC 

c 

PID 

RC 

c 

CAIL 

HTCSA 

;  CONVERT  HIOI  OREER 

0231' 

D4 

c+ 

0232* 

0085’ 

c+ 

0234’ 

9C 

c 

on 

RC 

..•BYTE,  GET  RESULT 

0235' 

57 

c 

SIR 

R7 

;AND  STORE  IT 

c 

CALL 

SALTTY 

;TYPE  THEM 

0236' 

D4 

c+ 

0237' 

00GB' 

c+ 

0239' 

FF05 

c 

DW 

SCRACH 

c 

RETURN 
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023B'  D5  C+ 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


INCLUDE  GET2HX.MAC 
************** 

*  GET2HX.MAC  * 

+  GET  THO  EUUR  DIGIT  HEX  NUMBERS  + 

(RA  +  RB  +  RC) 

This  subroutine  obtains  two  four  digit  hex  numbers. 
The  first  mmber  is  placed  in  RA,  the  second  in  RB. 


023C' 

C 

GET2HX:: 

;THIS  IS  A  PUBLIC 

C 

CAIia 

PffiGN 

;PRCMPT  EUR  FIRST 

023C' 

D4 

C+ 

023D' 

01E6' 

C+ 

023F' 

031®' 

c 

DW 

FROM 

; NUMBER 

0241' 

9C 

c 

GST 

RC 

;TEST  FOR  UART  ERRORS 

0242' 

CA  0252' 

c 

um 

X2HEX 

;E33T  IF  ERROR  FOUND 

0245’ 

9B 

c 

COL 

RB 

;  PLACE  FIRST  NUMBER 

0246* 

BA 

c 

PHI 

RA 

;IN  REGISTER  RA 

0247' 

8B 

c 

OLD 

RB 

0248' 

AA 

c 

PI C 

RA 

c 

CALL 

FHXIN 

;  PROMPT  FOR  SECOND 

0249* 

D4 

c+ 

024A* 

01E6' 

c+ 

024C' 

03EB’ 

c 

DH 

OVER 

;  NUMBER 

024E* 

9C 

c 

GHI 

RC 

;LOCK  FOR  UART  ERRORS 

024F' 

CA  0252* 

c 

IflC 

X2HEX 

;EXTT  IF  ERROR  FOUND 

0252' 

c 

X2HEX:  RETURN 

;EQT 

0252' 

D5 

c+ 

C 


C 

c 

c 

c 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


INCLUDE  CAIERC.MAC 
************** 

*  CALCRC.MAC  * 


+  CALCULATE  A  NEW  CRC  VALUE  + 


This  subroutine  will  calculate  a  new  value  CRC  each 
tioe  it  is  called.  The  old  value  will  be  over 
'written,  the  address  pointer  (  RA  )  will  be 
:  incremented,  and  the  block  counter  (  RB  )  will 
:be  decremented 


0253' 

F8  OB 

C 

CALCRC:  IUI 

LCW 

(CRCHI) 

;  POINT  TO  CRC  HI 

0255’ 

AC 

c 

PIO 

RC 

;USE  RC  AS  THE  POINTER 

0256’ 

F8  FF 

c 

IUI 

HI® 

(CRCHI) 

0258' 

BC 

c 

PHI 

RC 
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0259' 

F8  00 

C 

US1 

00 

;  POINT  TO  A  SCRATCH 

025B' 

A7 

C 

PLO 

R7 

;  LOCATION  WITH  GLOBAL 

025C' 

EC 

C 

SEX 

RC 

;  POINT  TO  CRC  HI  BYTE 

025D* 

4A 

C 

IDA 

RA 

;GET  MEMORY  BYTE 

025E' 

E"3 

C 

XOR 

;XCR  VITO  MEMORY  BYTE 

025F* 

57 

C 

SIS 

R7 

;SAVE  RESULT 

0260* 

F6 

c 

SHR 

;DIVIDE  RESULT 

0261' 

F6 

c 

SHR 

;BY  16 

0262* 

F6 

c 

SHR 

0263' 

F6 

c 

SHR 

0264' 

E7 

c 

SEX 

R7 

.•POINT  TO  RESULT 

0265' 

F3 

c 

XCR 

;0F  FIRST  XCR  AND  XCR 

0266' 

57 

c 

SIR 

R7 

;WHH  RESULT  CF  DIVIDE 

0267' 

EE 

c 

SHL 

;  MULTIPLY  BY  16 

0268' 

EE 

c 

SHL 

0269' 

EE 

c 

SHL 

026A' 

EE 

c 

SHL 

Q26B' 

1C 

c 

INC 

RC 

;  POINT  AT  CRC  ID  BYTE 

026C* 

EC 

c 

SEX 

RC 

026D* 

F3 

c 

XCR 

;XCR  WTIH  RESULT  CF 

026E' 

2C 

c 

ISC 

RC 

;  MULTIPLY,  AND  STORE 

026F* 

5C 

c 

SIR 

RC 

.•RESULT  AT  CRC  HI  BYTE 

0270' 

07 

c 

LIN 

R7 

;GET  RESULT  OF  SECOND 

0271' 

F6 

c 

SHR 

;XCR,  AND  DIVIDE 

0272* 

F6 

c 

SHR 

,-rr  BY  8 

0273' 

F6 

c 

SHR 

0274' 

E*3 

c 

XCR 

;XCR  WITH  CRC  HI  BYTE 

0275' 

5C 

c 

SIR 

RC 

.•RESULT  IS  NEW  CRC  HI 

0276' 

07 

c 

UN 

R7 

;GET  RESULT  OF  SEOCND 

0277' 

EE 

c 

SHL 

;SOR  AND 

0278' 

EE 

c 

SHL 

;  MULTIPLY  IT  BY  32 

0279' 

EE 

c 

SHL 

027A' 

EE 

c 

SHL 

027B' 

EE 

c 

SHL 

027C* 

ET7 

c 

SEX 

R7 

;XCR  THIS  PRCCUCT  WITH 

027D' 

F3 

c 

XCR 

;THE  PRODUCT  CF  THE 

027E' 

1C 

c 

INC 

RC 

;  FIRST  MULTIPLY 

027F' 

5C 

c 

SIR 

RC 

;  RESULT  IS  NEW  CRC  ID 

0280' 

17 

c 

INC 

R7 

.-POINT  AT  SYSTEM  FLAG 

c 

RETORN 

;EXTT 

0281' 

D5 

c+ 

c 

t 

c 

t 

INCLUDE  DQOJC.MAC 

*  MlCIJC.MAC  * 


+  INCREMENT  THE  CDOCK  BY  CUE  MDWIE  + 

(RA  +  RC) 

This  subroutine  will  increment  the  software 
clock  by  cne  minute.  The  year  day  will  be 
reset  to  001  one  day  after  year  day  365, 
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ET10 

EE16 


FF29 

EF2F 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


;i.e.,  leap  year  not  allowed  !  A  second  clock 
; which  is  always  one  minute  ahead  of  the  system 
; clock  will  also  be  incremented.  If  the  "GO"  flag 
;is  set,  the  value  at  MD*W  will  be  decremented. 

;If  the  new  value  at  MINCH  is  equal  to  1,  Q  will  be 
;set  indicating  the  start  of  a  measurement  sequence. 

r 

; Reserve  seven  locations  in  RAM  to  hold  decimal 
;time  code  data  of  the  system  clock. 

HD  EQU  OOBAIdlCa  ;  HUNDREDS  OF  DAYS 

UM  BQU  GUBAIdl6H  ;  UNITS  OP  MINUTES 

/ 

;  Reserve  seven  locations  in  RAM  to  hold  decimal 
;time  code  data  of  the  system  clock  time  +  1  minute. 

S1HD  B3J  GLDBAL+29H  ;  HUNDREDS  OP  DAYS 

S1UH  ECU  CUBAL+2FH  ;  UNITS  OP  MTNUTES  (-1-1) 

t 

; Reserve  two  locations  in  RAM  to  hold  the  "GO"  flag. 

;This  flag  when  set  will  be  =  AAAAH.  The  lew  half  of  the 
;"G0"  flag  is  set  in  SCEDUL.MAC.  A  successful  comparison 
;  between  the  current  time  and  the  start  time  will  set  the 
;high  half. 


ET43 

C 

C 

GOFLG  BJJ 

t 

OJDBAL+43H  ; 

:G0  FLAG 

0282' 

7B 

c 

c 

MldK::  SEC 

USE  Q  AS  A  WOP  COUNTER 

0283' 

PH 

c 

SEX 

R7 

USE  R7  AS  A  POINTER 

0284' 

F8  16 

c 

IDI 

UH  (UM) 

POINT  AT  SYSTEM  TIME 

0286' 

A7 

c 

K2CUC:  PUD 

R7 

START  HERE  PCR  SECOND  PASS 

0287' 

07 

c 

U» 

R7 

ST  UNITS  OF  MDWTES 

0288' 

AA 

c 

PhD 

RA 

0289* 

1A 

c 

DC 

RA 

ADO  1  MINUTE 

028A' 

8A 

c 

ao 

RA 

ST  NEW  MIN.  COUNT 

028B' 

FB  OA 

c 

m 

OAH 

is  rr  now  io  ? 

028D' 

CA  034E* 

c 

c 

LfiNZ 

STRNEW 

IF  NOT,  STORE  NEW  HDL 

0290' 

73 

c 

STXD 

STORE  A  0  AT  U.M. 

0291' 

07 

c 

UN 

R7 

ST  TINS  OF  MINUTES 

0292' 

AA 

c 

PhD 

RA 

0293' 

1A 

c 

INC 

RA 

ADD  1  TO  TEN  MIN.  COT. 

0294' 

8A 

c 

OjD 

RA 

GET  NEW  TEN  MIN.  CNT. 

0295' 

FB  06 

c 

XRI 

06H 

IS  IT  WW  MINUTE  60  ? 

0297’ 

CA  034E' 

c 

c 

UNZ 

STRNEW 

IF  NOT  STORE  NEW  T.M.C. 

029A’ 

73 

c 

t 

STXD 

:  STORE  0  AT  TM 

029B' 

07 

c 

UN 

R7 

:GET  UNITS  OF  HOURS 

029C’ 

AA 

c 

PUD 

RA 

029D’ 

1A 

c 

INC 

RA 

ADD  1  TO  UNITS  OF  HRS. 

029E’ 

8A 

c 

GLD 

RA 

ST  NEW  U.H.  COUNT 

029F' 

FB  OA 

c 

XRI 

OAH 

is  rr  now  io  ? 

02A1 ' 

C2  034A' 

c 

1£Z 

DCTH 

IF  SO  INC.  T.H. 

02A4' 

8A 

c 

an 

RA 

RESTORE  NEW  U.H.  CNT. 

02A5' 

FB  04 

c 

XRI 

04H 

IS  IT  NCW  4  ? 

58 


INTERROGATOR  OCNTROL/DATA  LOGGER  (PNAVLGR.MAC)  MACRO-18  3.36 
WOODS  HOLE  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 


PA®  1-18 


02A7' 

CA  034E' 

C 

LBNZ 

STONEW 

;IF  NTT  STORE  NEW  U.H.C. 

V 

C 

The  units  of  hour  counter  is  new  4.  If  the  tens  of  hour 

c 

counter  is  now  2,  both  these  counters  will  be  reset,  and 

c 

the  units  of  days  counter  will  be  incremented. 

02AA' 

27 

c 

EEC 

R7 

;  POINT  AT  TINS  OF  HOURS 

02AB' 

47 

c 

IDA 

R7 

;®T  TINS  OF  HOURS 

02AC' 

FB  02 

c 

XRI 

02H 

;IS  IT  KM  2  ? 

02AE* 

a  034E' 

c 

IBNZ 

STONEW 

;IF  NOT  STORE  A  4  AT  IB 

02B1' 

73 

c 

STXD 

;ZERO  TO  UNITS  OF  HOURS 

02B2' 

73 

c 

STXD 

JZERO  TO  TENS  OF  HOURS 

c 

c 

c 

■This  loop  will  up  date  the  days  counter. 

02B3' 

F8  03 

L 

c 

IDI 

03H 

;SET  LOCP  COUNTER 

02B5* 

AC 

c 

PID 

RC 

02B6* 

07 

C  l 

MATE:  IBN 

R7 

;GET  A  DAY  DIGIT 

02B7* 

AA 

c 

PI D 

RA 

02B8* 

1A 

c 

INC 

RA 

;ADO  1  DAY  COUNT 

02B9' 

8A 

c 

an 

RA 

;GET  NEW  DAY  COUNT 

02BA' 

FB  OA 

c 

XRI 

OAH 

;IS  IT  NCW  10  ? 

02BC* 

CA  034E' 

c 

IBNZ 

STRNEW 

;IF  NOT  STORE  NEW  DAY  COUNT 

02BF' 

73 

c 

STXD 

;ZERO  THIS  DIGIT 

02C0' 

2C 

c 

ESC 

RC 

;DBC.  LOOP  COUNTER 

02a* 

8C 

c 

an 

RC 

;IF  THIS  COUNTER  IS 

02C2' 

CA  02B6' 

c 

LBNZ 

UPDATE 

;ZESO  EXIT  THE  LOCP 

c 

r 

•If  it  is  year  day  366, 

reset  to  day  001 

02C5' 

C9  0353' 

C  I 

aYPYR?:  LBNQ 

PS1HD 

;  POINT  AT  S1HD  SBOCND  PASS 

02C8* 

F8  10 

c 

IDI 

I0W 

(HD)  ;OIHERWISE  POINT  AT  HD 

02a' 

A7 

C  I 

jYPYRI:  PLO 

R7 

;  POINT  AT  HUNDREDS  OF  DAYS 

02CB’ 

47 

c 

IDA 

R7 

;IS  IT  DAY  3nn  ? 

02CC' 

re  03 

c 

XRI 

03H 

;IF  NOT  RETURN  TO  MAIN. 

02CE* 

CA  02E4* 

c 

IBNZ 

TSTQ 

;  IF  IT  WAS  DAY  3nn, 

02m' 

47 

c 

IDA 

R7 

;IS  IT  DAY  36n  ? 

02D2' 

FB  06 

c 

XRI 

06H 

;3F  NOT  RETURN  TO  MAIN. 

02D4' 

a  02E4' 

c 

IBNZ 

TSTQ 

; IF  IT  WAS  DAY  36n, 

02D7' 

07 

c 

IDN 

R7 

;IS  IT  DAY  366  ? 

02D8' 

re  06 

c 

XRI 

06H 

;IF  NOT  RETURN  TO  MAIN 

02DA' 

CA  02E4' 

c 

LBNZ 

TSTQ 

; IF  IT  WAS  DAY  366, 

02DD' 

F8  01 

c 

IDI 

01H 

;  RESET  DAYS  TO  001 

02DF* 

73 

c 

STXD 

02ED' 

F8  00 

c 

IDI 

ooh 

02E2' 

73 

c 

STXD 

02E3' 

57 

c 

STR 

R7 

;AND  RETURN  MAIN 

c 

•If  Q  is  set  this  is  the  first  time  through  the  loop.  Point 

c 

at  time  plus  1  minute, 

copy  current  time  to  this  local,  reset 

c 

■Q  and  go  through  the  loop  a  second  time.  If  Q  is  not  set,  test 

c 

c 

the  condition  of  the  " 

GO"  flag. 

02E4' 

C9  0300' 

c 

rSTQ:  IBM2 

TSTGF 

;TEJST  Q  AND  IF  SET 

02E7 ' 

F8  10 

c 

IDI 

LOW 

(HD)  ;OOPY  CURRENT  TIME 

02E9' 

A7 

c 

PLO 

R7 

;TO  S1HD 
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02EA' 

F8  29 

C 

LDI 

UN  (S1HD) 

02EC* 

AA 

C 

PIT) 

RA 

;USE  RA  AS  A  POINIER 

02£D' 

97 

c 

GHI 

R7 

02EE' 

EA 

c 

PHI 

RA 

02EE" 

F8  07 

c 

IDI 

07H 

;USE  RC  AS  A  LDCP  COUOTEf 

02F1* 

AC 

c 

PUD 

RC 

;INnTAlLY  SET  TD  7 

02F2* 

47 

c 

CPYTIM:  LDA 

R7 

;GET  A  DIGIT  OF  CURRENT 

02F3' 

5A 

c 

SIB 

RA 

;TIME  AND  STORE  IT 

02F4* 

1A 

c 

INC 

RA 

;MDVE  POINTER 

02F5' 

2C 

c 

ISC 

RC 

;TEST  COUNTER 

02F6’ 

8C 

c 

<30 

RC 

;AND  IF  DCNE 

02F7' 

CA  02F2’ 

c 

LBNZ 

CPYTIM 

;POINr 

02FA' 

F8  2F 

c 

IDI 

LOW  (S1UM) 

;AT  TIME  +1  MINUTE 

02FC* 

7A 

c 

REQ 

;  RESET  IDCP  COUNTER 

02FD’ 

CO  0286' 

c 

c 

LfiR 

M2CUC 

;G0  THROWS  AGAIN 

c 

‘Since  Q  was  not  set  this  is  the  second  pass  through 

c 

■the  loop.  Decrement  the  measurement  interval  counter. 

c 

•if  and  only  if  the  "GO"  flag  is  equal  to  AAAAH.  If 

c 

•after  decrementing  the  measurement  interval  counter 

c 

'its  new  value  is  01H,  request  a  measurement  by  setting 

c 

c 

Q  prior  to  exiting. 

0300' 

F8  43 

V 

c 

rSTGF:  IDI 

LOW  (GOFLG) 

;  POINT  AT  GO  HAG 

0302' 

A7 

c 

PUD 

R7 

0303' 

47 

c 

IDA 

R7 

;AND  IF  NOT  SET  EXIT 

0304* 

IB  AA 

c 

XRI 

OAAH 

0306' 

a  0328* 

c 

IDNZ 

TSTIKE 

;IF  SET,  TEST  FOR 

0309’ 

07 

c 

LEN 

R7 

;  START  TIME 

030A' 

IB  AA 

c 

XRI 

OAAH 

030C' 

a  0328' 

c 

IDNZ 

TSI3ME 

Q30F' 

F8  26 

c 

LDI 

LOW  OCNOW) 

;GET  CURRENT  INTERVAL 

0311’ 

A7 

c 

PUD 

R7 

;  COUNT  AND  EBCKEMENT 

0312' 

47 

c 

IDA 

R7 

0313' 

BA 

c 

PEE 

RA 

0314' 

07 

c 

IDN 

R7 

0315' 

AA 

c 

PUD 

RA 

0316' 

2A 

c 

EEC 

RA 

0317’ 

8A 

c 

GUO 

RA 

;SAVE  NEW  INTTRVAL 

0318' 

73 

c 

STXD 

0319’ 

9A 

c 

GHI 

RA 

031A' 

57 

c 

SIR 

R7 

031B' 

a  0358' 

c 

UBNZ 

TSTICK 

;EXTT  IF  NEW  INIERVAL  IS 

031E* 

8A 

c 

GUO 

RA 

;NOT  EQUAL  TO  1  MMTIE 

031F' 

IB  01 

c 

XRI 

01H 

0321' 

CA  0358' 

c 

IDNZ 

TSTICK 

0324' 

7B 

c 

SEQ 

; OTHERWISE,  SET  Q  FIRST 

0325' 

CO  0358' 

c 

c 

LBR 

TSTICK 

;THEN  EXIT 

V 

c 

Compare  current  time  +1  minute  with  start  time.  If  they 

c 

are  equal  set  the  GO  flag  and  request  a  branch  to  the 

c 

r 

•measurement  sequence  by  exiting  with  Q  set. 

0328' 

F8  30 

c 

rSTIME:  IDI 

LOW  (DSHD) 

;  POINT  AT  START  TIME 

032A' 

AA 

c 

PUD 

RA 

;  USING  RA  AS  THE 

032B' 

97 

c 

GHI 

R7 

;  POINTER 
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032C' 

BA 

C 

PHI 

RA 

032D' 

F8  29 

C 

UI 

LOW 

(S1HD) 

.•POINT  AT  SYSTEM  TIME 

032F' 

hi 

c 

PUD 

R7 

;PLUS  1  MINUTE 

0330' 

E7 

c 

SEX 

R7 

0331' 

8A 

c 

NXTXOR:  GLO 

RA 

;OCMPARED  AU  SEVEN  ? 

0332’ 

FB  37 

c 

XRI 

LOW 

(DSHD+-7) 

0334’ 

C2  0340' 

c 

UZ 

SGCFLG 

; IF  SO  SET  GO  FLAG 

0337’ 

4A 

c 

IDA 

RA 

.•OTHERWISE,  GET  NEXT 

0338’ 

F3 

c 

XOR 

,-AND  COMPARE 

0339' 

CA  0358' 

c 

UNZ 

TSTICK 

;  BRANCH  TO  TEST  TICK 

033C’ 

17 

c 

INC 

R7 

;CN  A  MISMATCH,  OTHERWISE 

033D' 

CO  0331' 

c 

UR 

NmQR 

.•OCNTOWE 

0340’ 

F8  44 

c 

SGCFL3:  U)I 

LOW 

(GOFLj+1) 

0342’ 

A7 

c 

PLO 

R7 

;SET  HIGH  HAIF  CF  GO  FLAG 

0343' 

F8  AA 

c 

LDI 

OAAH 

0345' 

57 

c 

SIR 

R7 

0346’ 

7B 

c 

SB2 

/REQUEST  A  MEASUREMENT 

0347' 

CO  0358' 

c 

r 

L£R 

TSTICK 

;EXTT 

034A* 

73 

c 

t 

INCIH:  SIXD 

;ZERD  TO  UNITS  CF  HOURS 

034B' 

07 

c 

UN 

R7 

;GET  TENS  CF  HOURS 

034C' 

AA 

c 

PliD 

RA 

034D' 

1A  _ 

c 

r 

INC 

RA 

/ADD  1  TO  TENS  CF  HOURS 

034E' 

8A 

\r 

c 

i 

STRNEW:  GLO 

RA 

;GET  NEW  COUNT 

034F' 

57 

c 

SIR 

R7 

;STCRE'IT 

0350' 

CO  02C5' 

c 

UR 

LYPYR? 

;  RETURN  TO  MAIN 

0353' 

F8  29 

c 

PS1HD:  UI 

LOW 

(S1HD) 

;  SECOND  TIME  THROUGH 

0355' 

CO  02CA' 

r 

r 

UR 

LYPYR1 

;  POINT  AT  EAST  CLOCK 

V 

C 

t 

; Depending  on  the  state  of  the 

tick  flag,  this  routine 

C 

;will  return  to  either  the  main 

program  or  the  interrupt 

C 

r 

; service  routine. 

0358’ 

F8  17 

V 

c 

» 

TSTTCK:  UI 

LOW 

(TICK) 

/POINT  AT  TICK  FLAG 

035A’ 

hi 

c 

PUD 

R7 

035B' 

07 

c 

UN 

R7 

/EXAMINE  FLAG 

035C ' 

C2  037A' 

c 

uz 

ENTINT 

/IF  NOT  SET  RETURN  TO  INTRPT. 

c 

RETURN 

/OTHERWISE,  RETURN  TO  MAIN 

035F’ 

D5 

c+ 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


INCLUDE  UNTRPT.MAC 
************** 

*  INIRPT.MAC  * 
************** 


+  TOES  IS  THE  INTCRKUPT  SERVICE  ROUTINE  + 


:This  routine  handles  interrupt  requests.  The  only 
'interrupt  which  can  occur  in  this  system  is  the 
:coe  minute  tick.  The  purpose  of  this  routine  is 
simply  to  update  the  clock.  Two  exits  are  possible, 
:the  normal  exit,  and  the  forced  exit.  A  farced  exit 
occurs  when  upon  returning  from  the  routine  which 


61 


INTERROGATOR  OCNTROL/DATA  LOGGER  (PNAVLGR.MAC)  MACRO-18  3.36 
WOODS  HOE  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 


PAGE  1-21 


c 

advances  the  clock,  Q  is  set  indicating  the  start 

C 

c 

of  a  measurement  sequence. 

0360*  E2  C  I 

X3NT:  SEX  R2 

RESTORE  STACK  POINITR  AND 

0361'  70  C 

n 

RET 

ENABLE  FURTHER  INTERRUPTS 

«  t 

0362'  22  C  INIRPT:  EEC  R2 

POINT  TO  A  CLEAR  LOCATION 

0363'  78  C 

SAV 

SAVE  OLD  X  AND  P 

0364  '  22  C 

rax:  R2 

MOVE  TO  NEXT  LOCATION 

0365'  73  C 

STXD 

SAVE  ACCUMULATOR 

0366  '  76  C 

RSHR 

MOVE  DF  TO  MSB  OF  D 

0367'  73  C 

STXD 

SAVE  IF 

0368'  87  C 

<20  R7 

SAVE  THE  CONTENTS  OF  R7 

0369'  73  C 

n 

STXD 

v. 

c 

At  this  point  we  have  preserved  enough  of  the 

c 

register  data  to  safely  test  the  tick  flag  and 

c 

exit  if  it  is  set. 

l 

036A'  F8  17  C 

1DI  LOW 

(TICK) 

036C'  A7  C 

PL0  R7 

036D*  07  C 

LEN  R7 

•GET  TICK  FLAG 

036E'  CA  038E'  C 

c 

lbnz  xnmr 

■EXIT  IF  SET 

c 

c 

‘Tick  flag  Mas  not  set  so  continue  saving  registers 

v 

0371*  8A  C 

(2D  RA 

;SAVE  RA 

0372'  73  C 

STXD 

0373  *  9A  C 

GBX  RA 

0374'  73  C 

STXD 

0375'  8C  C 

<20  RC 

;SAVE  RC.O 

0376’  73  C 

STXD 

C 

■With  these  registers  preserved  the  clock  may 

C 

new  be  incremented. 

0377'  CO  0282'  C 

idr  max 

;  INCREMENT  THE  CLOCK 

037A'  C9  038A'  C  ENnNT:  IDNQ  RSTRX 

;IF  Q  IS  SET,  LOAD  R3 

037D'  F8  4B'  C 

LDI  LOW 

(MSRSEQ) 

037F'  A3  C 

PLO  R3 

;WTIH  THE  AEGRESS  OF 

0380'  F8  OF'  C 

LDI  HI® 

(KSRSEQ) 

0382'  B3  C 

PHI  R3 

;  MEASUREMENT  SEQUENCE 

0383'  F8  FF  C 

LDI  LOW 

(STACK) 

0385'  A2  C 

PLO  R2 

;  RESTORE  STACK  POINTER 

0386'  F8  FF  C 

LDI  HI® 

(STACK) 

0388’  B2  C 

PHI  R2 

;AND 

0389'  D3  C 

SEP  R3 

;EXTT  INTERRUPT,  OTHERWISE 

038A'  E2  C  RSTRX:  SEX  R2 

;  RESTORE  POINIER  AND 

038B'  CO  039A'  C 

IDR  RESTR 

;  RESTORE  AID  REGISTERS 

v* 

C 

c 

.•This  is  the  fas*,  interrupt  exit 

038E'  12  C 

ENTF:  INC  R2 

; POINT  TO  C4D  R7.0 

038F'  42  C  EXOCN:  IDA  R2 

0390’  A7  C 

PLO  R7 

;  RESTORE  R7 

0391'  42  C 

IDA  R2 
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0392' 

EE 

C 

SKL 

;  RESTORE  DF 

0393* 

42 

c 

LDA 

R 2 

;  RESTORE  ACCUMULATOR 

0394’ 

El 

c 

SE X 

R1 

;  ENABLE  INTERRUPT  HARDWARE 

0395' 

65 

c 

COT 

ORINT 

0396' 

00 

c 

DB 

00 

0397' 

CO  0360’ 

c 

LBR 

EHNT 

;EXIT  INTERRUPT  ROUTINE 

c 

c 

t 

;This  is  the 

slow  interrupt  exit. 

039A' 

12 

L 

c 

t 

RESIR:  INC 

R2 

; POINT  TO  OiD  RC.O 

039B' 

42 

c 

LDA 

R2 

;<3T  RC.O 

039C’ 

AC 

c 

PL3 

RC 

;RC.O 

039D' 

42 

c 

IDA 

R2 

;  RESTORE  RA 

039E' 

BA 

c 

PHI 

RA 

039F' 

42 

c 

IDA 

R2 

03A0* 

AA 

c 

PLO 

RA 

03A1' 

CO  038F* 

c 

LBR 

E2C0CN 

;CXmNUE  RESTORING  DATA 

C 


FF05 

FFOB 

EPOC 


03A4'  F8  17 
03A6’  A7 


C 

c 

C 

C 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INCLUDE  ISAIL.MAC 

*  SAIL  DRIVER  (SAIL.MAC)  * 


[This  module  is  designed  to  be  a  "KERNEL"  around  which 
:the  operating  system  of  any  SAIL  oriented  instrument 
:nay  be  based.  The  program  expects  the  UART  to  be  an 
:1854  and  the  CPU  to  be  an  1802.  The  UART  should  be 
: located  at  I/O  ports  6  and  7,  and  have  its  ES  (bar) 

:  input  connected  to  a  loop  status  indicator.  The  RCA 
[Standard  Call  and  Return  Technique  (SCSI)  is  used. 


1.  Define  the  NAME  of  the  SAIL  device. 

2.  Define  the  PROMPT  character  to  be  used. 

3.  Change  the  HELP  file  as  required. 


.•Define 

a  few  RAM  locations. 

SCRACH 

EBU 

QDBAL+5 

;A  SCRATCH  LOCATE® 

cRcm 

BQU 

SCRACH+6 

;CRC  HI  BYTE 

CRCU) 

• 

f 

B3J 

CRCHI+1 

;CRC  LO  BYTE 

[Note  that  <2£BAL  will  always  be  address  nnOO  and 
defines  the  start  of  a  RAM  page  to  be  used  by  all 
[routines.  The  first  location  will  usually  contain 
either  the  last  character  typed  or  the  contents  of 
:the  UART  status  register.  The  second  location  is 
reserved  for  the  system  error  flag.  Register  R7 
:will  always  point  to  seme  GLOBAL  location. 


*  CUSTOMIZED  FOR  INTERROGATOR  DATA  LOGGER  * 


CliCnC:  LDI  LOW  (TICK) 

PUD  R7 
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003A 


0012 


03A7* 

F8  01 

C 

LDI 

01H 

;SET  THE  TICK  FLAG 

03A9' 

57 

c 

SIR 

R7 

c 

CALL 

meue 

;  ADVANCE  THE  CLOCK 

03AA* 

D4 

c+ 

03AB' 

0282  ‘ 

c+ 

03AD* 

Cl  0F4B' 

c 

IDQ 

MSRSEQ 

;IF  TIME  MEASURE,  OTHERWISE 

03B0' 

F8  01 

c 

SAIL: 

LDI 

01H 

;  POINT  TO  THE  FLAG 

03B2' 

A7 

c 

PIO 

R7 

;WORD  AND 

03B3‘ 

F8  00 

c 

LDI 

0(31 

;  RESET  AID  BITS 

03B5' 

E7 

c 

SEX 

R7 

03B6' 

73 

c 

STXD 

03B7' 

6E 

c 

IMP 

DATA 

;  CLEAR  UART  DA  BIT 

03B8' 

E3 

c 

SEX 

R3 

;  CONFIGURE  UART 

03B9' 

67 

c 

CUT 

STATUS 

03BA' 

12 

c 

DB 

OCNFIG 

03BB' 

F8  17 

c 

LDI 

LOW  (TICK) 

03BD' 

A7 

c 

PIO 

R7 

03BE' 

F8  00 

c 

LDI 

OOH 

;  RESET  TICK  FUG 

03C0' 

57 

c 

SIR 

R7 

03CL' 

CO  07BC' 

c 

IDR 

ADDRS? 

,-TEST  PQR  CLOSED  IOCP 

03C4' 

E3 

c 

c 

! 

EXIT: 

SEX 

R3 

;CI£AR  INIEWUPT  LATCH 

03C5' 

65 

c 

OUT 

ORINT 

03C6' 

00 

c 

DB 

OOH 

03C7’ 

71 

c 

DIS 

;DISABI£  INTERRUPTS 

03C8' 

33 

c 

DB 

33H 

03C9' 

CO  0F48' 

c 

IDR 

MAIN 

;E XTT  THIS  MODUUE 

C 

c 


The  device  NAME  nay  be  any  combination  of  alpha- 


C 

; inmeric  characters. 

03CC'  49  32  7E 

C 

t 

NAME: 

DB 

"12", STOP 

; DEVICE  NAME 

c 

f 

007E 

c 

STOP 

B3P 

N-M 

;  MESSAGE  TERMINATOR 

C 

c 

c 

c 

c 

c 

c 


Pick  a  character  to  be  used  as  an  instrument  PROMPT 


PROMPT  B2U 


;THIS  IS  THE  PROMPT 


Define  the  hex  equivalent  of  an  ASCII  carriage 
return, line  feed,  space, nul,  bell,  and,  etx  character. 


OOOD 

C 

C 

i 

B3U 

ODH 

OOOA 

C 

If 

B3J 

QAH 

0000 

C 

NUL 

B3J 

OOH 

0020 

C 

SPACE 

20H 

0003 

C 

EIX 

B3J 

03H 

0007 

C 

BED 

ECU 

07H 

C 

/ 

C 

C 

c 

c 

c 

c 

c 


The  DART  is  configured  fear  7  data  bits,  even  parity, 
and  1  stop  bit.  This  configuration  may  be  modified 
by  changing  the  byte  stored  at  CONFIG. 


OCNFIG  B?J  12H 

t 

; Define  the  I/O 


;UART  CONFIGURATION 
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0001 

C 

C 

/ 

SELECT 

ECU 

01H  ;BANK  SELECT  TOR  PROM 

0002 

C 

PWRRST 

ECU 

02H  ,-PCWER  LATCH  RESET 

0003 

C 

PING 

ECU 

03H  .-TRANSMIT  A  PING 

0004 

C 

STPCUC 

ECU 

04H  ;STOP  THE  REAL  TIME  CLOCK 

0005 

C 

CUUNT 

ECU 

05H  ACKNOWLEDGE  THE  INTERRUPT 

0006 

C 

DATA 

06H  ;l!ART  DATA,  IN  OR  CUT 

0007 

C 

STATUS 

B3J 

07H  ;UART  CCKIRCL  OR  STATUS 

C 

C 

n 

t 

;  Store  a  few  often  used  messages 

03CF’ 

3B 

c 

/ 

EEL: 

IB 

««•«! 

t 

03D0* 

OA  OD  7E 

c 

CRLf: 

DB 

If,CR,SIOP 

03D3' 

20 

c 

SPSP: 

DB 

SPACE 

03D4' 

20  7E 

c 

SP: 

DB 

SPACE, STOP 

03D6' 

OA  OD  20  7E 

c 

CRLFSP: 

IB 

U\CR, SPACE,  STOP 

03D&' 

52  43  7E 

c 

RC$: 

EB 

"RC'.STOP 

03ED* 

20  46  72  6F 

c 

ERCM: 

DB 

"  Frco  *',m,STCP 

03EL' 

6D  20  03  7E 

c 

03E5* 

20  54  6F  20 

c 

TO: 

EB 

"  To  ",EIX,STOP 

03E9' 

03  7E 

c 

03EB* 

20  4F  76  65 

c 

OVER: 

DB 

”  Over  ",ETX,STCP 

03Q" 

72  20  03  7E 

c 

03F3' 

20  3D  20  7E 

c 

IQS: 

EB 

"  =  ".STOP 

03F7‘ 

20  43  4C  45 

c 

GEAR: 

IB 

"  CLEAR", STOP 

03FB' 

41  52  7E 

c 

03FE* 

20  4E  4F  54 

c 

NO: 

DB 

"  NOT  ALLOWED 1 1",STCP 

0402  '  20  41  4C  4C  C 

0406'  4F  57  45  44  C 

040A’  21  21  7E  C 

040D'  4F  43  4B  7E  C  ICCR:  IB  "OCR",  STOP 

0411'  4E  4C  4F  43  C  IMJOCK:  DB  "NLOCfC’,STCP 

0415*  48  7E  C 

0417'  44  4C  45  7E  C  HE:  IB  "HE", STOP 

041B*  49  4E  47  7E  C  ING:  EB  "DC, STOP 

041F'  20  4F  43  7E  C  CK:  DB  ”  CIC'.STCP 

0423  ’  20  20  4F  4B  C  OK?:  DB  "  CK  (Y/N)  ?  ",m,STOP 

0427'  20  28  59  2F  C 

042B*  4E  29  20  3F  C 

042F'  20  20  03  7E  C 


0433' 

0A  OD  20  3A 

C 

PRMPT: 

EB 

If,  CR,  SPACE, PROMPT,  SPACE,EnX,STOP 

0437' 

20  03  7E 

C 

043A’ 

20  20  57  48 

C 

ERROR: 

DB 

SPACE, SPACE, "WHAT  ’".BEL.STOP 

043E' 

41  54  20  3F 

c 

0442' 

07  7E 

c 

0444' 

6F  76  65  7E 

c 

OVE: 

DB 

"ove",sroP 

0448' 

20  52  45  41 

c 

READY: 

DB 

"  READY", STOP 

044C’ 

44  59  7E 

c 

044F' 

20  30  30  2E 

c 

SECS: 

EB 

SPACE, "00...  ".STOP 

0453' 

2E  2E  7E 

c 

0457' 

40  7E 

c 

AT: 

DB 

"9",  STOP 

0459' 

49  4D  45  7E 

c 

TIME: 

DB 

"DIE",  STOP 

045D* 

43  48  45  44 

c 

SCED: 

DB 

"CHEXUL£",STOP 

0461* 

55  4C  45  7E 

C 

0465’ 

OD  OA  20  53 

c 

STDAY: 

DB 

CR.LF,"  Start  cc  day  =  ".STOP 

0469' 

74  61  72  74 

c 
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046D' 

20  6F  6E  20 

C 

0471' 

64  61  79  20 

C 

0475' 

3D  20  7E 

C 

0478' 

20  20  68  6F 

C 

STOOUR:  DB 

"  hour  =  ".STOP 

047C* 

75  72  20  3D 

C 

0480' 

20  7E 

C 

0482’ 

20  20  6D  69 

C 

SHUN:  DB 

"  minute  =  ".STOP 

0486' 

6E  75  74  65 

C 

048A' 

20  3D  20  7E 

C 

CR.lf,"  Measurement  interval,  minutes  =  ".STOP 

048E' 

00  QA  20  4D 

c 

MEMNT:  DB 

0492* 

65  61  73  75 

c 

04%' 

72  65  6D  65 

c 

049 A' 

6E  74  20  69 

c 

049E' 

6E  74  65  72 

c 

04A2' 

76  61  6C  2C 

c 

04A6' 

20  20  6D  69 

c 

C4AA' 

6E  75  74  65 

c 

04AE' 

73  20  3D  20 

c 

04B2' 

7E 

c 

04B3' 

OD  OA  20  53 

c 

SCEKSG:  DB 

CR.lf,"  Scheduler  is  ".STOP 

04B7' 

63  68  65  64 

c 

04BB' 

75  6C  65  72 

c 

04BF' 

20  69  73  20 

c 

04C3* 

7E 

c 

04C4' 

41  43  54  49 

c 

ACTIVE:  DB 

"ACTIVE  with  ".STOP 

04C8' 

56  45  20  77 

c 

04CC' 

69  74  68  20 

c 

04D0' 

7E 

c 

04D1* 

48  20  6D  69 

c 

MINRIN:  DB 

"H  minutes  remaining  to  the  next  measurement." 

04D5’ 

6E  75  74  65 

c 

04D9' 

73  20  72  65 

c 

041®' 

6D  61  69  6E 

c 

0413.' 

69  6E  67  20 

c 

04E5' 

74  6F  20  74 

c 

04E9' 

68  65  20  6E 

c 

04ED' 

65  78  74  20 

c 

0411  * 

6D  65  61  73 

c 

04F5' 

75  72  65  6D 

c 

04F9' 

65  6E  74  2E 

c 

04FD' 

7E 

c 

IB 

STOP 

04EE' 

49  44  4C  45 

c 

IDLED. :  DB 

"III£.",ST0P 

0502’ 

2E  7E 

c 

0504' 

OD  OA  20  50 

c 

PNTR:  IB 

CR.LF,"  Pointer  is  at  ".STOP 

0508' 

6F  69  6E  74 

c 

050C' 

65  72  20  69 

c 

0510' 

73  20  61  74 

c 

0514' 

20  7E 

c 

0516' 

OD  OA  20  53 

c 

NOTACT:  IB 

CR.LF,"  Scheduler  was  NOT  active  !", BEL, STOP 

051A' 

63  68  65  64 

c 

051E' 

75  6C  65  72 

c 

0522’ 

20  77  61  73 

c 

0526' 

20  4E  4F  54 

c 

052A' 

20  61  63  74 

c 

052E' 

69  76  65  20 

c 

0532' 

21  07  7E 

c 

0535' 

OD  OA  20  54 

c 

MUON:  DB 

CR.U."  This  interval  must  be  greater  than  " 
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0539* 

68  69  73  20 

C 

053D' 

69  6E  74  65 

C 

0541' 

72  76  61  6C 

C 

0545' 

20  6D  75  73 

C 

0549' 

74  20  62  65 

C 

054D’ 

20  67  72  65 

c 

0551* 

61  74  65  72 

c 

0555’ 

20  74  68  61 

c 

0559' 

6E  20 

c 

055B' 

74  77  6F  20 

c 

re 

"two  (2)  minutes.", BEL, STOP 

055F' 

28  32  29  20 

c 

0563' 

6D  69  6E  75 

c 

0567' 

74  65  73  2E 

c 

056B' 

07  7E 

c 

056D' 

41  52  4D  45 

c 

APMHSL:  EB 

"ARMED  EOT  NTT  ACTIVE", STOP 

0571* 

44  20  42  55 

c 

0575' 

54  20  4E  4F 

c 

0579* 

54  20  41  43 

c 

057D' 

54  49  56  45 

c 

0581* 

7E 

c 

0582' 

4E  4F  54  20 

c 

NOTARM:  IB 

"NOT  ARMED", STOP 

0586' 

41  52  4D  45 

c 

058A' 

44  7E 

c 

058C' 

OA  20  20  41 

c 

SAT:  DB 

IR,"  AT  ".STOP 

0590' 

54  20  20  7E 

c 

0594' 

2A  7E 

c 

ASTK:  DB 

"*",STOP 

05%' 

61  6D  20  54 

c 

RNTST:  EB 

"am  Test", STOP 

059A' 

65  73  74  7E 

c 

c 

r 

c 

;This  is  the  HEIR  file.  It  contains  an  explanation 

c 

;of  the  cannon  1802  monitor  functions  accessible 

c 

;via  the  sail  loop.  Special  functions  that  apply 

c 

;to  the  program  in  which  this  module  is  placed  may 

c 

;be  added  here. 

The  monitor  functions  included  are: 

c 

;?M,  JM,  $P,  1L0CX,  UNLOCK,  and  ?C 

c 

t 

059E' 

OD  OA  OA 

c 

HELP:  EB 

CR,IR,LF 

05A1' 

20  20  49  4E 

c 

DB 

"  INTERROGATOR  PROGRAM" 

05A5' 

54  45  52  52 

c 

05A9' 

4F  47  41  54 

c 

05 AD’ 

4F  52  20  50 

c 

05B1' 

52  4F  47  52 

c 

05B5' 

41  4D 

c 

05B7' 

20  20  20  56 

c 

EB 

"  Ver.  1.1  Jan.  1985" 

05B8' 

65  72  2E  20 

c 

05BF' 

31  2E  31  20 

c 

05C3' 

20  4A  61  6E 

c 

05C7' 

2E  20  31  39 

c 

05CB' 

38  35 

c 

05CD' 

OD  OA  OA  OA 

c 

IB 

CR,LF,IR,IR 

05D1' 

20  20  53  59 

c 

DB 

"  SYSTEM  COMMANDS", CR,IR,IR 

05D5' 

53  54  45  4D 

c 

05D9' 

20  43  4F  4D 

c 

05QD' 

4D  41  4E  44 

c 

05E1' 

53  OD  OA  OA 

c 

05E5’ 

20  20  21  4D 

c 

DB 

"  IMaaaa  dddd" 
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05E9' 

61  61  61  61 

c 

05B2)' 

20  64  64  64 

c 

05F1' 

64 

c 

05F2' 

20  20  20  20 

c 

DB 

05F6* 

20  4C  4F  41 

c 

05FA' 

44  20  4D  45 

c 

05FE' 

4D  4F  52  59 

c 

0602' 

OAOD 

c 

w 

0604' 

20  20  3F  4D 

c 

DB 

0608' 

20  20  20  20 

c 

DB 

060C’ 

20  20  20  20 

c 

0610' 

20  20  20  20 

c 

0614' 

20  20  44  49 

c 

0618' 

53  50  4C  41 

c 

061C' 

59  20  4D  45 

c 

0620' 

4D  4F  52  59 

c 

0624' 

OAOD 

c 

W 

0626' 

20  20  24  50 

c 

DB 

062A’ 

61  61  61  61 

c 

062E* 

20  20  20  20 

c 

DB 

0632’ 

20  20  20  2D 

c 

0636' 

20  20  52  55 

c 

063A' 

4E  20  50  52 

c 

063E' 

4F  47  52  41 

c 

0642’ 

4D 

c 

Ml 

0643' 

OAOD 

c 

IM 

0645' 

20  20  3F  43 

c 

DB 

0649' 

20  20  20  20 

c 

DB 

064D' 

20  20  20  20 

c 

0651' 

20  20  20  20 

c 

0655' 

20  20  43  41 

c 

0659' 

4C  43  55  4C 

c 

065D' 

41  54  45  20 

c 

0661' 

43  52  43 

c 

0664' 

OAOD 

c 

DW 

0666' 

20  20  20  4D 

c 

DB 

066A' 

20  20  20  20 

c 

DB 

066E' 

20  20  20  20 

c 

0672' 

20  20  20  20 

c 

0676'  20  20  4D  4F  C 

067A’  56  45  20  4D  C 

067E'  45  4D  4F  52  C 

0682*  59  c 

0683’  OAOD  C 

0685'  20  20  20  52  C 

0689  '  20  20  20  20  C 

068D'  20  20  20  20  C 

0691'  20  20  20  20  C 

0695'  20  20  54  45  C 

0699'  53  54  20  52  C 

069D'  41  4D  C 

069F'  OAOD  c 

06A1'  20  20  3F  53  C 

06A5'  20  20  20  20  C 

06A9'  20  20  20  20  C 

06 AD'  20  20  20  20  C 


"."WAD  MEJBRY" 


OAODH 

.. 

«  "."DISPLAY  MQIjRY" 


OAODH 
"  SPaaaa" 


"."RON  PROGRAM” 


OAODH 
"  ?C" 

«  '  "."CALCULAIE  CRC" 


OAODH 
"  «" 


"."MOVE  MOCKT 


OAODH 

II 

..  ",'*IEST  RAH" 


OAODH 

If  ^g»l 

..  '  "."DISPLAY  SCHEDULE" 
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06B1' 

20  20  44  49 

C 

06B5' 

53  50  4C  41 

c 

06B9‘ 

59  20  53  43 

c 

06BD' 

48  45  44  55 

c 

06C1' 

4C  45 

c 

06C3' 

OAOD 

c 

EW 

06C5' 

20  20  21  53 

c 

DB 

06C9' 

43  48  45  44 

c 

06CD' 

55  4C  45 

c 

06D0' 

20  20  20  20 

c 

IB 

06D4' 

20  20  20  50 

c 

06D8' 

52  4F  47  52 

c 

06DC' 

41  4D  20  53 

c 

O6E0' 

43  48  45  44 

c 

06E4' 

55  4C  45 

c 

06E7' 

OAOD 

c 

ew 

06E9' 

20  20  21  54 

c 

DB 

06ED' 

49  4D  45 

c 

O6F0' 

20  20  20  20 

c 

DB 

06F4' 

20  20  20  20 

c 

06F8* 

20  20  20  53 

c 

06FC* 

45  54  20  43 

c 

0700* 

4C  4F  43  4B 

c 

0704* 

OAOD 

c 

EW 

0706* 

20  20  3F  54 

c 

DB 

07QA' 

20  20  20  20 

c 

DB 

070E' 

20  20  20  20 

c 

0712’ 

20  20  20  20 

c 

0716* 

20  20  44  49 

c 

071A' 

53  50  4C  41 

c 

071E' 

59  20  54  49 

c 

0722' 

4D  45 

c 

0724' 

OAOD 

c 

EW 

0726' 

20  20  21  4C 

c 

DB 

072A' 

4F  43  4B  20 

c 

072E' 

20  20  20  20 

c 

0732' 

20  20  20  20 

c 

0736' 

20  20 

c 

0738' 

50  52  4F  54 

c 

DB 

073C' 

45  43  54  20 

c 

0740' 

4D  45  4D  4F 

c 

0744' 

52  59 

c 

0746' 

OAOD 

c 

EW 

0748' 

20  20  21  55 

c 

EB 

074C’ 

4E  4C  4F  43 

c 

0750' 

4B  20  20  20 

c 

0754* 

20  20  20  20 

c 

0758’ 

20  20 

c 

075A' 

55  4E  50  52 

c 

EB 

075E' 

4F  54  45  43 

c 

0762' 

54  20  4D  45 

c 

0766' 

4D  4F  52  59 

c 

076A' 

OAOD 

c 

EW 

076C' 

20  20  21  49 

c 

DB 

0770' 

44  4C  45  20 

c 

0774’ 

20  20  20  20 

c 

OAODH 

*•  !SCHHIUI£" 


"/•PROGRAM  SCHEBUI£" 


OAODH 
"  1TIME" 

"  "/'SET  Q/XX" 


OAODH 

••  7T" 

"  ","DISPLAY  TIME" 


OAODH 

iuoar," 


"PROTECT  MEMORY" 


OAODH 

"  1UNL0CK"," 


"DNPROTECT  MEMORY" 


OAODH 

"  'Tnrjr'," 
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"INHIBIT  SCHEDUIER" 


OAODH 

"  1PING"," 


DB  "TRANSMIT  A  10  mS  PULSE", CR, If , STOP 


If  data  is  available,  the  loop  is  closed. 
Enable  interrupts  which  will  take  over  the 
function  of  incrementing  the  real  Hup  clock, 
and  look  for  the  address  sequence.  (INAME) 


07BC* 

E3 

C 

ADCRS?:  SEX 

R3 

07BD* 

65 

C 

our 

cumrr 

; RESET  INTERRUPT 

07BE' 

00 

C 

DB 

00H 

; HARDWARE 

G7BF’ 

70 

C 

RET 

;ENA3I£  INTERRUPTS 

07C0* 

33 

C 

DB 

33H 

c 

CHAR? 

;  RECEIVED  A  "#"  ? 

070.' 

D4 

c+ 

07C2' 

0145' 

c+ 

07C4' 

9C 

c+ 

07C5' 

a  0939' 

c+ 

07C8' 

8C 

c+ 

c 

V. 

c 

C 

t 

; Since  the  #  was  received, 

set  up  to  receive  NAME 

07C9' 

V 

C 

♦ 

DEVICE:  WORD? 

NAME 

;LOCK  FOR  "NAME" 

07C9' 

D4 

c+ 

07a' 

012B' 

c+ 

070C' 

03CC* 

c+ 

07CE' 

9C 

c+ 

07CF' 

a  0939' 

c+ 

07D2' 

8C 

c+ 

07D3' 

a  07BC' 

c 

me. 

ADCRS? 

;TRY  AGAIN 

07D6' 

CO  08D2' 

c 

L£R 

KENT 

;  IDENTITY  INSTRUMENT 

AT  THIS  POINT  THE  INSTRUMENT  IS  CORRECTLY  ADDRESSED 


INCLUDE  ISCMDS.MAC 
************* 


*  SCMDS.MAC  * 
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C 

************* 

C 

C 

+  H,  ?C,  ?M, 

!M,  $P,  M, 

R,  !L0CK,+ 

C 

•HS,  ?S,  !?, 

?T, 

!PDJC  + 

C 

C 

+!  UNLOCK  COMMAND  INTERPRETER  + 

C 

C 

Test  the  first  character  received  after  a  correct 

C 

address  sequence.  It  should  be  an  H,  M,  R,  ?,  !,  or  $. 

C 

If  it  is  not. 

generate  an  error  message. 

07D9' 

F8  17 

c 

c  c 

MDIN:  WI 

LOW  ( 

TICK) 

07DB* 

A7 

c 

PLO 

R7 

07DC' 

F8  00 

c 

LDI 

00H  ; 

CL£AR  TICK  FLAG 

07DE' 

57 

c 

SIR 

R7 

c 

CHAR? 

r 

GET  A  CHARACTER 

07DF' 

D4 

c+ 

07BO* 

0145' 

c+ 

07E2' 

9C 

c+ 

07E3' 

CA  0939' 

c+ 

07E6' 

8C 

c+ 

07E7' 

FB  48 

c 

XRI 

"H" 

IS  IT  AN  "H" 

07E9' 

C2  0905' 

c 

L£Z 

HLPOOT 

IF  SO  TYPE  THE  HELP  MESSAGE 

07EC' 

8C 

c 

GLO 

RC 

OTHERWISE,  RESTORE  CHARACTER 

07ED' 

FB  3F 

c 

XRI 

IS  rr  A  "?"  ? 

07EF’ 

C2  080D' 

c 

L£Z 

CorM 

IF  SO  TEST  NEXT  ICR  C  OR  M 

07F2' 

8C 

c 

GLO 

RC 

OTHERWISE,  RESTORE  CHARACTER 

07F3' 

FB  21 

c 

XRI 

It  |  II 

IS  IT  A  "1"  ? 

07F5' 

C2  082F' 

c 

I£Z 

MbrL 

IF  SO  TEST  NEXT  FOR  M  CR  LOCK 

07F8' 

8C 

c 

ao 

RC 

OTHERWISE,  RESTORE  CHARACTER 

07F9‘ 

FB  24 

c 

XRI 

"$" 

IS  IT  A  "$”  ? 

07FB' 

C2  08B1' 

c 

U5Z 

P? 

•IF  SO  TEST  NEXT  FOR  P 

07FE' 

8C 

c 

GW 

RC 

OTHERWISE,  RESTORE  CHARACTER 

07FF' 

FB  4D 

c 

XRI 

"M" 

;IS  rr  AN  "M"  ? 

0801* 

C2  OADF’ 

c 

LBZ 

HOVE 

;IF  SO  GOTO  MOVE 

0804* 

8C 

c 

GLO 

RC 

;  OTHERWISE,  RESTORE  CHARACTER 

0805' 

EB  52 

c 

XRI 

"R" 

;IS  IT  AN  ”R"  ? 

0807’ 

C2  C®D5' 

c 

l£Z 

RAKTST 

;IF  TEST  RAM 

c 

c 

;1tis  axis  the  test  for  the  standard  sail  cannands- 

c 

;  Enter  any  additional  cotnnand  tests  after  this 

c 

;ccmaent. 

1 

c 

c 

'•  *****  ADDITIONAL  COMMAND  TESTS  GO  HIRE  ********* 

080A' 

CO  08F9' 

c 

c 

USR 

ERROTT 

;NCT  A  RECOGNIZED  COMMAND 

c 

c 

;  Determine  the  character  which  follows  "?".  It  should 

c 

;be  either  a 

■c,  "M",  ’T’  or  an  "S".  If  it  is  not,  type 

c 

;the  error  message  and  go  to  PRMCLTT. 

080D' 

c 

c 

CorM:  CHAR? 

;GCT  THE  NEXT  CHARACTER 

080D' 

D4 

c+ 

080E' 

0145' 

c+ 

0810' 

9C 

c+ 

0811' 

CA  0939' 

c+ 
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0814’ 

8C 

C+ 

0815' 

FB  43 

C 

XRI 

”C" 

IS  IT  A  "C  ? 

0817’ 

C2  0A58’ 

c 

LBZ 

CRC 

IF  SO  GO  TO  CRC 

081A' 

8C 

c 

GLO 

RC 

OTHERWISE,  RESTORE  CHARACTER 

081B' 

FB  4D 

c 

XRI 

"M" 

IS  IT  AN  "M"  ? 

081D' 

C2  094D’ 

c 

IBZ 

<2UERKY 

IF  SO  GO  TO  QUERRY  MEMORY 

0820' 

8C 

c 

GLO 

RC 

OTHERWISE,  RESTORE  CHARACTER 

0821’ 

FB  54 

c 

XRI 

««pH 

IS  IT  A  "T 

0823' 

C2  0B35’ 

c 

IBZ 

QUETIM 

IF  SO  GO  TO  QUESTICN  TIME 

0826* 

8C 

c 

GLO 

RC 

OTHERWISE,  RESTORE  CHARACTER 

0827* 

FB  53 

c 

XRI 

"S" 

is  rr  an  "S"  ? 

0829’ 

C2  00)6’ 

c 

f* 

LBZ 

QRVSCED 

IF  SO  TYPE  SCHEDULE 

v, 

c 

f' 

t 

*  ickieic 
/ 

ENTER  AEDITICNAL  "?"  OCMMANDS  HERE  **** 

082C' 

CO  08F9’ 

c 

/ 

LBR 

FSRorr 

IF  NOT,  TYPE  THE  ERROR  MSG. 

L 

c 

/ 

; Determine  which  characters  follow  the  "!".  They 

c 

; should  be  either  an  "H", 

"LOOT,  "UNLOCK",  "I", 

c 

;or  "P* 

• 

e 

082F' 

c 

FforL: 

CHAR? 

1 

GET  THE  NEXT  CHARACTER 

082F' 

D4 

c+ 

0830* 

0145’ 

c+ 

0832' 

9C 

c+ 

0833' 

CA  0939’ 

c+ 

0836' 

8C 

c+ 

0837' 

FB  4D 

c 

XRI 

"M" 

IS  IT  AN  "M" 

0839' 

C2  09A4' 

c 

c 

IBZ 

LOAD 

IF  SO  GO  TO  LOAD 

V. 

c 

;The  ccomand  was  not  !H, 

SO  test  for  (LOCK,  ! UNLOCK 

c 

c 

;1IDLE, 

or  (PINS. 

083C' 

8C 

w 

c 

t 

QX> 

RC 

RESTORE  CHARACTER 

083D' 

FB  4C 

c 

XRI 

"L" 

IS  IT  AN  "L”  ? 

083F' 

CA  084F’ 

c 

LBNZ 

u? 

IF  SO  LOCK  Ft*  TOCK" 

c 

WORD? 

LOCK 

AND  IF  FOUND  GOTO 

0842' 

D4 

c+ 

0843’ 

012B’ 

c+ 

0845’ 

040D’ 

c+ 

0847* 

9C 

c+ 

0848’ 

CA  0939’ 

c+ 

084B’ 

8C 

c+ 

084C’ 

C2  0911’ 

c 

IBZ 

CLOSE 

CLOSE,  OTHERWISE 

084F’ 

8C 

c 

U?: 

GLO 

RC 

RESTORE  CHARACTER 

0850’ 

FB  55 

c 

XRI 

"0” 

is  rr  a  "0"  ? 

0852' 

a  0862’ 

c 

IBNZ 

T? 

IF  SO  LOOK  FOR  "NLOCK" 

c 

WORD? 

UNLOCK 

AND  IF  FOUND  GOTO 

0855' 

D4 

c+ 

0856’ 

012B’ 

c+ 

0858' 

0411’ 

c+ 

085A* 

9C 

c+ 

085B' 

CA  0939’ 

c+ 

085E' 

8C 

c+ 

085F' 

C2  0925’ 

c 

LBZ 

OPEN 

OPEN,  OTHERWISE 

0862' 

8C 

c 

T?: 

GLO 

RC 

RESTORE  CHARACTER 

0863' 

FB  54 

c 

XRI 

mpit 

is  rr  "T"  ? 
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0865' 

CA  0875' 

C 

L£NZ 

S? 

;IF  SO  LOOK  FOR  "IKE" 

c 

WORD? 

TIME 

;IF  FOUND 

0868' 

D4 

c+ 

0869’ 

012B' 

c+ 

086B' 

0459' 

c+ 

086D' 

9C 

c+ 

086E’ 

a  0939’ 

c+ 

0871’ 

8C 

c+ 

0872' 

C2  0890' 

c 

IEZ 

urrm 

;SET  THE  CLOCK 

0875' 

8C 

c 

S?: 

GUO 

RC 

;IS  IT  AN  "S" 

0876' 

FB  53 

c 

XRI 

"S" 

;IF  SO  LOCK  FOR 

0878' 

a  0888' 

c 

LENZ 

I? 

;"CHEDULE" 

c 

WORD? 

SCED 

;AND  IF  FOUND 

087B' 

D4 

c+ 

087C' 

012B' 

c+ 

087E’ 

045D' 

c+ 

0880' 

9C 

c+ 

0881* 

a  0939' 

c+ 

0884' 

8C 

c+ 

0885* 

C2  OCBE' 

c 

IEZ 

1ESCED 

;UOAD  THE  SCHEDULE 

0888' 

8 C 

c 

I?: 

an 

RC 

; RESTORE  CHARACITR 

0889' 

IB  49 

c 

XRI 

l*JH 

;IS  IT  AN  "T  ? 

0888' 

CA  089B' 

c 

IENZ 

PN? 

;IF  SO  LOOK  FOR  DLE 

c 

WORD? 

DLE 

;AND  IF  POUND  RESET 

088E' 

D4 

c+ 

088F' 

012B* 

c+ 

0891' 

0417* 

c+ 

0893' 

9C 

c+ 

0894' 

a  0939' 

c+ 

0897' 

8C 

c+ 

0898’ 

C2  0F11' 

c 

L8Z 

GFTOO 

;THE  GO  FLAG 

089B' 

8C 

c 

PN?: 

GUO 

RC 

; OTHERWISE,  IS  IT 

089C' 

FB  50 

c 

XRI 

Hpw 

;A  "P"  ? 

089E' 

CA  08AE' 

c 

LBNZ 

NOCMD 

;IF  SO,  LOOK  FOR 

c 

WORD? 

ING 

;"ING",  AND  IF  FOUND 

08A1' 

D4 

c+ 

08A2' 

012B' 

c+ 

08A4' 

041B' 

c+ 

08A6' 

9C 

c+ 

08A7' 

CA  0939' 

c+ 

08AA' 

8C 

c+ 

08AB* 

C2  0F37' 

c 

r 

LBZ 

TXMIT 

;SEND  A  PING 

V 

c 

r 

t 

*  **** 
t 

ENTER  AEOITICNAL 

COMMANDS  HERE  *** 

08AE' 

CO  08F9' 

c 

Q 

NOCnD: 

IER 

ERROUT 

;GOTO  ERROUT 

c 

» 

.•Determine  the  character  which  follows  the  $, 

c 

r 

;it  should  be  a 

"P". 

08B1' 

V 

c 

* 

P?: 

CHAR? 

;<3T  THE  NEXT  CHARACTER 

08B1' 

D4 

c+ 

08B2' 

0145' 

c+ 

08B4' 

9C 

c+ 

08B5' 

CA  0939' 

c+ 

08B8' 

8C 

c+ 

1-32 


73 


INTERROGATOR  OCNTRCL/DATA  LOGGER  (PNAVLGR.MAC)  MACK>-18  3.36 
WOODS  HOB  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 


PAGE  1-33 


08B9' 

FB  50 

C 

XRI 

"P"  ;  IS  IT  A  "P"  ? 

c 

c 

****  ENTER  ADDITIONAL  "S"  COMMANDS  HERE  **** 

c 

08BB' 

CA  08F9' 

c 

IBNZ 

ERROUT  ;IF  NOT  GOTO  ERJRCUT 

c 

GETFLG 

;IS  THE  SYSTEM  CPEN  ? 

08BE' 

E8  01 

c+ 

08C0' 

A7 

c+ 

08C1' 

07 

c+ 

08C2* 

F6 

c 

SHR 

08C3* 

C3  OACO' 

c 

LBDF 

RDM  ;IF  IT  IS  GOTO  RUN 

08C6' 

C  1 

CRUN:  TYFMSG 

NO  ;OIHERHISE,  TYPE  THE  NO  MSG. 

08C6* 

D4 

c+ 

08C7* 

OOCB' 

c+ 

08C9* 

03FE' 

c+ 

08CB' 

9C 

c+ 

08CC' 

CA  0939* 

c+ 

08CE" 

CD  08ED' 

c 

IBR 

PRHXrr  ;AND  GOTO  PRM3UT 

c 

c 

■At  this  point  all  "cannand"  tests  have  been  made. 

c 

c 

INCLUDE  ISACTCN.MAC 

c 

******* 

******* 

c 

*  SACTCN.HAC  * 

c 

******* 

******* 

c 

c 

•This  block  of  code  defines  the  acti.cc  to  be  taken 

08D2* 

C 

H*OT:  TYFMSG 

CKLFSP 

08D2' 

D4 

c+ 

08D3* 

OOCB' 

c+ 

08D5' 

03D6' 

c+ 

08D7' 

9C 

c+ 

OSDS' 

CA  0939' 

c+ 

c 

TYFMSG 

NAME 

08EB' 

D4 

c+ 

08DC* 

OOCB' 

c+ 

08DE' 

03CC' 

c+ 

08ED’ 

9C 

c+ 

08E1' 

a  0939' 

c+ 

c 

TYFMSG 

READY 

08E4' 

D4 

c+ 

OSES' 

OOCB' 

c+ 

08ET7' 

0448' 

c+ 

OSES' 

9C 

c+ 

OSES' 

CA  0939' 

c+ 

c 

« 

08ED' 

c 

PRJGUT:  TYPMSG 

PRMPT 

08ED' 

D4 

c+ 

08EE' 

OOCB' 

c+ 

OSFO' 

0433 

c+ 

08F2' 

9C 

c+ 

08F3' 

CA  0939' 

c+ 

08F6' 

CO  07D9’ 

c 

IBR 

CMDIN 

upco  the  receipt  of  standard  SAIL  ooimands 
MOT:  TYFMSG  CRUEP  ;  IDENTIFY  BY  TYPING 


iTSmXSlt  NAME  AND 


;THE  WORD  READY 


;TYPE  PROMPT  SEQUENCE 


;<3T  ANOTHER  COMMAND 


74 


INTERROGATOR  OCNIROL/DATA  LOGGER  (PNA.VLGR.MAC)  MACRO-18  3.36  PAGE  1-34 

WOODS  HOLE  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 
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08E^' 

C 

08F9' 

D4 

C+ 

08FA' 

00CB' 

c+ 

08FC' 

043A' 

c+ 

08FE' 

9C 

c+ 

08FF' 

CA  0939' 

c+ 

0902' 

CO  091A' 

c 

c 

c 

c 

c 

0905' 

c 

0905' 

D4 

c+ 

0906* 

OOCB' 

c+ 

0908' 

059E' 

c+ 

09QA' 

9C 

c+ 

09CB' 

CA  0939' 

c+ 

090E' 

CO  08ED' 

c 

c 

c 

c 

c 

0911' 

C 

0911' 

D4 

c+ 

0912' 

OOCB' 

c+ 

0914' 

0411" 

c+ 

0916' 

9C 

c+ 

0917' 

a  0939' 

c+ 

091A' 

EB  01 

c 

091C' 

A7 

c 

091D' 

E7 

c 

091E' 

EB  FE 

c 

0920' 

T2 

C 

0921' 

57 

c 

0922' 

CO  08ED' 

c 

c 

c 

c 

c 

0925’ 

EB  01 

c 

0927* 

A7 

c 

0928' 

E7 

c 

0929' 

EB  01 

c 

092B' 

El 

c 

092C' 

57 

c 

c 

092D' 

D4 

c+ 

092E' 

OOCB' 

c+ 

0930’ 

041F' 

c+ 

0932' 

9C 

c+ 

0933’ 

CA  0939’ 

c+ 

0936’ 

CO  08ED' 

c 

C 

C 

C 


ERROUT:  TYPMSG  ERROR 


LfiR  RSTFLG 


LfiR  PRNDUT 


CLOSE:  TYPMSG  CK 


RSTELS:  LDI  OlH 

PIO  R7 

SEX  R7 

ldi  ram 

AND 

SIR  R7 

IfiR  PRMOOT 

/ 

;The  response  to  a 
;the  system  OPEN  flag. 

OPEN:  IDI  OlH 

PLO  R7 

SEX  R7 

IDI  OlH 

OR 

SIR  R7 

TYPMSG  OK 


LfiR  PRMOOT 


;TYPE  ERROR  SEQUENCE 


;GOTO  PRMPT  VIA  RESET- 


TYPE  THE  HE2D  MESSAffi 


(ST  NEXT  COMMAND 


:The  response  to  a  "LOCK"  cannand  is  to  reset  the 
: system  OPEN  flag. 


"UNLOCK"  command  is  to  set 


Depending  on  the  state  of  an  error  flag  set 
after  reading  the  UART  status,  the  program 


;SAY  (X  THIN  RESET  E1AG 


.'POINT  AT  SYSTEM  FLAG 


MASK  AID  BUT  OPEN  BIT 
RESET  THIS  BIT 
STORE  FLAG 
GET  NEXT  COMMAND 


;  POINT  AT  SYSTEM  ELAG 


MASK  AID  BUT  OPEN  BIT 
SET  THIS  BIT 
STORE  FLAG 
TYPE  "CK"  AND 


;GET  NEXT  OCMMAND 


;The  response  to  the  "H"  coimand  is  to  simply  type 
;the  message  stored  in  the  help  file. 

HLPOtTT:  TYPMSG  HEZD 
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C  ;will  either  branch  to  MAIN,  un-address,  or 
C  ; output  the  error  message. 

C  ; 


0939' 

9C 

C 

ERVEC:  an 

RC 

RECOVER  STATUS  FLAG 

093A* 

FE 

c 

SHL 

LOOP  OPEN  ? 

093B' 

a  03C4' 

c 

LBDF 

EXIT 

IF  SO  EXIT 

09 3E' 

FE 

c 

SHL 

RECEIVED  A  "#"  ? 

093F' 

a  07 C9’ 

c 

I£DF 

DEVICE 

IF  SO  LOCK  FOR  NAME 

0942’ 

FE 

c 

SHL 

UAKT  ERROR  ? 

0943' 

C3  03B0' 

c 

LBIF 

SAIL 

IF  SO  DE-ADDRESS 

0946' 

FE 

c 

SHL 

OPERATOR  ERROR  ? 

0947' 

C3  08F9’ 

c 

I£DF 

ERROUT 

IF  SO  SEND  ERROR  MSG 

094A' 

CO  03C4' 

c 

IBR 

EXIT 

NONE  OF  ABOVE,  EXIT 

L 

c 

t 

;1he  response  to  a  "?M"  is  to  type  the  contents  of  a 

c 

;  specified  number  of  memory  locations  starting  at 

c 

r 

;a  specified  address. 

094D' 

L 

c 

QUERRY:  CALL 

GET2HX 

;GET  START  AND  END 

094D' 

D4 

c+ 

094E' 

023C' 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

0950' 

9C 

c+ 

0951' 

CA  0939' 

c+ 

c 

TYPMSG 

CRIF 

;TYPE  A  CR/LF 

0954' 

D4 

c+ 

0955* 

OOCB' 

c+ 

0957’ 

03D0' 

c+ 

0959' 

9C 

c+ 

095A' 

CA  0939' 

c+ 

095D' 

9A 

c 

TYPADD:  GUI 

RA 

;TYPE  MSB  OF  ADDRESS 

095E' 

AC 

c 

FLO 

RC 

c 

CALL 

TYPEC 

095F’ 

D4 

c+ 

0960' 

021F* 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

0%2* 

9C 

c+ 

0%3' 

CA  0939' 

c+ 

0966' 

8A 

c 

GLO 

RA 

;TYPE  LSB  CP  ADDRESS 

0%7* 

AC 

c 

FLO 

RC 

c 

CALL 

TYPEC 

0968’ 

D4 

c+ 

0%9' 

021F' 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

096B' 

9C 

c+ 

096C* 

a  0939' 

c+ 

096F' 

c 

SPOUT:  TYPMSG 

SP 

;TYPE  A  SPACE 

096F' 

D4 

c+ 

0970' 

OOCB' 

c+ 

0972’ 

03D4' 

c+ 

0974' 

9C 

c+ 

0975' 

CA  0939' 

c+ 

0978’ 

4A 

c 

BYTOOT:  IDA 

RA 

;GET  A  MEMORY  BYTE 

0979’ 

AC 

c 

FLO 

RC 

;TYPE  IT 

c 

CALL 

TYPEC 

097A' 

D4 

c+ 
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097B' 

021F* 

C+ 

c 

ERROR? 

; REACT  TO  ERRORS 

097D’ 

9C 

c+ 

097E' 

CA  0939* 

c+ 

0981' 

2B 

V- 

DEC 

RB 

;TEST  FOR  LAST  LOCATIOt 

0982' 

9B 

c 

an 

RB 

0983' 

CA  098A' 

c 

LBNZ 

IBTST 

-  0986' 

8B 

c 

GUO 

RB 

;IF  DONE  PROMPT  AND 

0987' 

C2  0813)' 

c 

L8Z 

PRMOUT 

;G ET  NEXT  COMMAND 

098A' 

8A 

c 

LETST:  GLO 

RA 

; OTHERWISE,  TEST  FOR 

098B' 

FA  OF 

c 

ANI 

OFH 

;END  OF  LINE 

098D' 

CA  099C' 

c 

LBNZ 

TSTSP 

c 

TYPKSG 

EEL 

;IF  BOUND,  TYPE  ; 

0990’ 

D4 

c+ 

0991' 

OOCB' 

c+ 

0993' 

03CF' 

c+ 

0995* 

9C 

c+ 

09%’ 

a  0939* 

c+ 

0999' 

CO  095D' 

c 

IBR 

TYPADD 

iCQNTCNUE 

099C' 

8A 

c 

TSTSP:  <330 

RA 

;NEXT  LOCATICN  EVEN  ? 

099D’ 

F6 

c 

SHR 

;IF  SO,  FIRST  TYPE  A 

099E' 

CB  096F' 

c 

IBNF 

SPOUT 

;  SPACE.  OTHERWISE, 

09A1' 

CO  0978* 

c 

IBR 

BYTOOT 

;TYPE  NEXT  MEMORY  BYTE 

L 

c 

i 

;The  response  to  a  'MM" 

is  to  load  memory  with  data 

c 

;as  it  is  input  beginning  at  a  specified  address,  and 

c 

r* 

;  continuing  until  a  carriage  return  is  encountered. 

09A4' 

w 

c 

LOAD:  GEHELG 

;IS  THE  SYSTEM  LOCKED  ? 

09A4' 

F8  01 

c+ 

09A6' 

A7 

c+ 

09A7' 

07 

c+ 

09A8' 

F6 

c 

SHR 

;3J  SO,  TYPE  THE  ERROR 

09A9* 

O  09AF' 

c 

IBIS' 

LBAEO 

;  MESSAGE  TEEN  PROMPT 

09AC' 

CO  08C6' 

c 

IBR 

NORUN 

;OTHERVISE, 

09AF' 

E7 

c 

LDADD:  SEX 

R7 

;  RESET  THE  SYSTEM 

0980' 

F8  7E 

c 

LDI 

7EH 

;LOCX  FUG  AND  TEE 

09B2' 

F2 

c 

AND 

;OCMPLEIE  BYTE  FLAG 

09B3' 

57 

c 

STR 

R7 

c 

CAIB 

GENHEX 

;®T  START  ADDRESS 

09B4' 

D4 

c+ 

09B5’ 

016D' 

c+ 

mi' 

9C 

c 

an 

RC 

;TEST  FOR  UART  ERRORS 

09B8’ 

EA  EE 

c 

ANI 

OFEH 

;IF  EOT©  GOTO  ERVEC 

09BA' 

CA  0939' 

c 

LBNZ 

ERVEC 

09BD' 

8C 

c 

GUO 

RC 

;VAS  THE  LAST  CHARACTER 

09BE' 

FB  20 

c 

XRI 

SPACE 

;A  SPACE  ? 

09C0' 

C2  09D2' 

c 

LBZ 

NXTO 

;IF  SO  LOAD  DATA 

09C3' 

8C 

c 

GLO 

RC 

;WAS  THE  CHARACTER  A 

09C4' 

FB  OD 

c 

XRI 

CR 

;  CARRIAGE  RETURN  ? 

09C6' 

C2  OA39' 

c 

LBZ 

MODFLG 

;IF  SO  MODIFY  COL.  FLAG 

09C9’ 

8C 

c 

GUI 

RC 

;KAS  THE  CHARACTER  A 

09a* 

FB  OA 

c 

XRI 

LF 

;LINE  FEED  ? 

09CC' 

C2  0A39' 

c 

LBZ 

MODFLG 

;IF  SO  MODIFY  COL.  FUG 

09CF’ 

CO  08F9' 

c 

IBR 

ERROUT 

.-OTHERWISE,  INDICATE  AN  ERROR 

09D2' 

F8  01 

c 

NXTD:  LDI 

01H 

;  POINT  AT  SYSTEM  FUG 
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09D4' 

A7 

C 

PLO 

R7 

09D5* 

ET7 

C 

SEX 

R7 

RESET  OX.  FLAG  BITS 

09D6' 

F8  9F 

C 

IDI 

9FH 

OSDS' 

F2 

C 

AND 

09D9' 

57 

c 

STR 

R7 

STORE  SYSTEM  FLAG 

c 

CALL 

INCHAR  ; 

GET  NEXT  CHARACTER 

09DA' 

D4 

c+ 

09DB' 

0145' 

c+ 

c 

ERROR? 

l 

REACT  TO  ERRORS 

091®' 

9C 

c+ 

091®’ 

CA  0939* 

c+ 

c 

CALL 

ATOB  ; 

CONVERT  TO  HEX 

09EL' 

D4 

c+ 

09E2' 

0058* 

c+ 

09E4' 

9C 

c 

CHI 

RC 

ZERO  FOR  GOOD  CONVERT 

09E5' 

a  0A06' 

c 

IBNZ 

CRTST 

REACT  TO  NON-HEX  ENTRY 

09E8* 

F8  04 

c 

UDI 

04H 

PREPARE  TO  ASSEMBIB 

09EA' 

AA 

c 

PIO 

RA 

AN  EIGHT  BIT  BYTE 

09EB' 

8C 

c 

DSHFT: 

(30 

RC 

SHIFT  HEX  DIGIT  FROM 

09EC' 

EE 

c 

SHL 

RA  10W  TO  RD  HIGH 

09E3)' 

AC 

c 

PIO 

RC 

09EE' 

9A 

c 

<m 

RA 

09EJ" 

7E 

c 

RSBL 

O9P0* 

BA 

c 

PHI 

RA 

09E1' 

2A 

c 

EEC 

RA 

09F2' 

8A 

c 

(30 

RA 

09F3' 

CA  09EB' 

c 

LBNZ 

DSHFT 

c 

(3TFIB 

1 

EIGHT  BIT  BYTE  ASSEMBLES  ? 

09F6' 

EE  01 

c+ 

09F8' 

A7 

c+ 

09E9' 

07 

c+ 

09FA' 

EE 

c 

SHL 

09FB' 

C3  QA23* 

c 

IBDF 

STORE  ; 

IF  SO  STORE  IT,  OTHERWISE 

09FE' 

EE  80 

c 

IDI 

80H 

SET  THE  COMPUTE  BYTE  FLAG 

QAQO' 

XI 

c 

SBC 

R7 

QA01' 

El 

c 

CR 

0A02' 

57 

c 

STR 

R7 

0A03' 

00  09D2* 

c 

LBR 

NX3D 

AND  GST  THE  NEXT  HEX  DIGIT 

0A06' 

c 

CRTST: 

<23510 

< 

THERE  WAS  A  NON-HEX  ENTRY 

0A06* 

EE  01 

c+ 

QA08' 

A7 

c+ 

0A09' 

07 

c+ 

OAOA' 

EE 

c 

SHL 

QAOB' 

a  08F9' 

c 

LJBDF 

ERROOT 

IF  THE  BYTE  WAS  NOT  COMPUTE 

OAOE' 

8C 

c 

<30 

RC 

THIS  IS  AN  ERROR.  IF  THE  BYTE 

OAOF’ 

EE  OD 

c 

XRI 

CR 

WAS  COMPUTE  AND  THE  ENTRY 

0A11' 

C2  08ED' 

c 

LBZ 

PRICOT 

WAS  A  CARRIAGE  RETURN,  EXIT 

0A14' 

8 C 

c 

(30 

RC 

WAS  THE  ENIRY 

0A15' 

FB  20 

c 

XRI 

SPACE 

A  SPACE  ? 

0A17' 

C2  09D2' 

c 

LBZ 

N3CTD 

IF  SO  CONTINUE 

0A1A' 

8C 

c 

(30 

RC 

WAS  THE  ENTRY  A  ? 

0A1B' 

FB  3B 

c 

XRI 

H«M 

t 

IF  SO  SET  THE  OX.  FLAG 

0A1D' 

C2  0A2E' 

c 

LBZ 

OOLSET 

AND  CONTINUE.  OTHERWISE 

0A20' 

CO  08F9' 

c 

LBR 

ERROOT 

INDICATE  AN  ERROR  AND  EXIT 

0A23' 

9A 

c 

STORE: 

OH 

RA 

GET  THE  BYTE  TO  BE  STORED 

0A24' 

5B 

c 

STR 

RB 

STORE  IT 
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0A25' 

F8  7E 

C 

IDI 

7EH 

RESET  THE  COMPLETE 

0A27' 

E7 

C 

SEX 

R7 

BYTE  FLAG 

0A28' 

F2 

C 

AND 

0A29' 

57 

c 

STR 

R7 

0A2A' 

IB 

c 

INC 

RB 

INCREMENT  ADDRESS  POINTER 

0A2B' 

CO  09D2‘ 

c 

IDR 

NXTD 

GET  THE  NEXT  BYTE 

0A2E' 

F8  01 

c 

OOLSET:  IDI 

01H 

POINT  AT  SYSTEM  FUG 

0A30' 

A7 

c 

PLO 

R7 

0A31' 

ET7 

c 

SEX 

R7 

0A32' 

F8  60 

c 

IDI 

60H 

•INDICATE  RECEPTION  OF 

0A34' 

FI 

c 

CR 

BY  SETTING  COL.  EUG 

0A35' 

57 

c 

STR 

R7 

■SET  THE  FUG 

0A36' 

CO  09AF* 

c 

IDR 

LDADD 

OT  NEXT  ADDRESS 

QA39' 

c 

M3DFLG:  ®IFLG 

IF  CQL.  FLAG  IS  SET 

QA39' 

F8  01 

c+ 

QA3B' 

A7 

c+ 

0A3C* 

07 

c+ 

QA3D' 

E7 

c 

SEX 

R7 

•MOODY  IT  TO  REE1D3CT  THE 

0A3E' 

FE 

c 

SHL 

RECEPTION  OF  EITHER  A 

0A3F' 

FE 

c 

SHL 

•CARRIAGE  RETURN  CR  LINE  FEED 

0A40' 

C3  0A4A' 

c 

IDIF 

NOCR 

0A43' 

FE 

c 

SHL 

0A44' 

C3  0A51' 

c 

LBIF 

NOLF 

IF  THIS  EUG  WAS  NOT  SET 

0A4T 

00  08F9* 

c 

IDR 

ESROW 

•THERE  IS  AN  ERROR 

0A4A' 

F8  BF 

c 

NOCR:  IDI 

cm 

RESET  CARRIAGE  RETURN  BIT 

0A4C' 

F2 

c 

AND 

0A4D' 

57 

c 

STR 

R7 

STORE  MODIFIED  EUG 

0A4E* 

CO  09 AF' 

c 

IDR 

IDAHO 

■GT  NEW  ADDRESS 

0A51' 

F8  IF 

c 

KXE:  IDI 

ODEH 

•RESET  THE  LINE  FEED  BIT 

0A53* 

F2 

c 

AND 

0A54* 

57 

c 

STR 

R7 

•STORE  MODIFIED  EUG 

0A55' 

CO  09 AF' 

c 

c 

IDR 

IDAHO 

•(3T  NEW  ADDRESS 

c 

c 

The  response  to  a  ?C  is  to  calculate  the  CRC  of  a 

c 

specified  Mode  of  memory,  beginning  at  a  specified 

c 

location.  An  erased  block  will  cause  the  OfXR 

c 

r 

to  be  typed. 

QA58' 

V* 

c 

( 

RC:  TYPMSG 

RCS 

;TYPE  RC 

0A58' 

D4 

c+ 

0A59' 

OOCB' 

c+ 

0A5B‘ 

03DA' 

c+ 

0A5D' 

9C 

c+ 

0A5E' 

a  0939' 

c+ 

0A61' 

F8  OC 

c 

IDI 

LOT 

(CRGD)  ;SET  RA  TO  POINT  AT 

0A63' 

AA 

c 

FID 

RA 

;THE  16  BIT  CRC 

0A64' 

F8  FF 

c 

IDI 

HIGH 

(CRCLO)  ;OCNSTANT 

0A66' 

BA 

c 

pm 

RA 

0A6 r 

F8  00 

c 

IDI 

00H 

0A69' 

EA 

c 

SEX 

RA 

;SET  THE  CRC  CONSTANT 

0A6A' 

73 

c 

STXD 

;TO  ZERO 

0A6B' 

5A 

c 

STR 

RA 

c 

CALL 

GET2HX 

;GET  THE  START  ADDRESS 

0A6C' 

D4 

c+ 

0A6D' 

0230’ 

c+ 
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C 

ERROR? 

0A6F' 

9C 

C+ 

0A70' 

a  0939' 

<V 

OA73'  ‘ 

F8  01 

c 

IDI 

01H 

0A75' 

A7 

c 

PLO 

R7 

0A76' 

E7 

c 

SEX 

R7 

0A77' 

F8  80 

c 

1EI 

80H 

0A79" 

FI 

c 

OR 

0A7A' 

57 

c 

SIR 

R7 

QA7B* 

EA 

c 

CLDOP:  SEX 

RA 

0A7C* 

F8  FF 

c 

IDI 

OFFH 

0A7E' 

F3 

c 

XER 

0A7F' 

C2  0A87' 

c 

I SO. 

CALLCC 

0A82' 

ET7 

c 

SEX 

R7 

0A83' 

F8  7F 

c 

LDI 

7FH 

0AS5' 

F2 

c 

AND 

0A86' 

57 

c 

SIR 

R7 

0A87' 

c 

CAUjCC:  CAIi 

CALCRC 

0A87' 

D4 

c+ 

0AB8' 

0253* 

c+ 

0A8A' 

2B 

c 

DEC 

RB 

0A8B' 

8B 

c 

OJO 

RB 

0A8C' 

CA  0A7B’ 

c 

UNZ 

CLOCP 

0A8F' 

9B 

c 

CHI 

RB 

0A90' 

CA  0A7B' 

c 

IDNZ 

CLOCP 

OA93' 

07 

c 

UN 

R7 

0A94' 

FE 

c 

SHL 

0A95' 

CB  0AA4' 

c 

1ENF 

CRCOUT 

c 

TYPKSG 

CLEAR 

0A98' 

D4 

c+ 

0A99' 

OOCB' 

c+ 

0A9B' 

03F7' 

c+ 

0A9D* 

9C 

c+ 

0A9E* 

CA  0939' 

c+ 

0AA1' 

CO  08ED' 

c 

LBR 

FRMOOT 

0AA4' 

c 

CRCOUT:  TYPMSG 

BQS 

QAA4' 

D4 

c+ 

0AA5' 

OOCB' 

c+ 

0AA7' 

03F3' 

c+ 

0AA9' 

9C 

c+ 

OAAA' 

CA  0939' 

c+ 

OAAD' 

F8  OB 

c 

IDI 

LOW 

(CRCHI) 

OAAF' 

AA 

c 

PLO 

RA 

QABO* 

F8  FF 

c 

IDI 

HIGH 

(crchi) 

0AB2’ 

BA 

c 

PHI 

RA 

0AB3* 

4A 

c 

IDA 

RA 

0AB4* 

AC 

c 

PLO 

RC 

c 

CALL 

TYPBC 

0AB5’ 

D4 

c+ 

0AB6' 

021F' 

c+ 

0AB8' 

OA 

c 

UN 

RA 

0AB9' 

AC 

c 

PLO 

RC 

c 

CALL 

TYPEC 

OABA' 

D4 

c+ 

OABB' 

021F' 

c+ 

OABD' 

CO  08ED’ 

c 

LfiR 

PRMOUT 

80 
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;AND  BLOCK  SIZE 


;  POINT  TO  SYSTEM  FLAG 


;SET  THE  CLEAR 
,-MEMORY  FLAG 

;TEST  A  BYTE  CfF 
,-MEMORY  FOR  THE 
;  CLEAR  OCNDIIICN 
;IF  CLEAR,  CALCULATE 
; OTHERWISE,  RESET 
;CLEAR  MEMORY  FLAG 


.•CALCULATE  CRC 


.-DECREMENT  BYTE  COUNT 
;TEST  FOR  CRC 
.•CALCULATION  OQMPIEIE 
;IF  SO  TEST  FOR 
;  CLEAR  MEMORY 
;GET  SYSTEM  FLAG 
;LOGK  AT  CLEAR  MEMORY 
;IF  SET,  TYPE  THE 
;  CLEAR  MESSAGE  AND 


;G£T  NEXT  CCMMAND 
;TYPE  = 


.•OTHERWISE,  POINT 
;TO  FINAL  CRC 
;CCNSTANT  AND  TYPE  IT 

,-GET  HI  HALE  OF  CRC 

,-TYPE  IT 


;GET  LD  HALE  OF  CRC 
;TYPE  IT 


;GET  NEOCT  CCMMAND 


INTERROGATOR  ocntrol/data  logger  (PUAVLGR.KAC)  MACRO-18  3.36 
WOODS  HOLE  OCEANOGRAPHIC  INST.  OCEAN  ENGINEERING 


PAGE  1-40 


C 

C 

C 

C 

C 


The  response  to  a  $P  command  is  to  run  a  program 
beginning  at  a  specified  address.  Prior  to  executing 
this  canaand,  the  X  and  P  registers  will  be  set  to  RO 


OACO' 

F8  01 

C 

RUN:  LDI 

01H 

;  RESET  THE  SYSTEM 

CAC2' 

A7 

C 

PLO 

R7 

;LXK  FLAG 

QAC3' 

F8  FE 

C 

LDI 

OFEH 

0AC5' 

F2 

C 

AND 

0AC6' 

57 

C 

STR 

R7 

C 

CALL 

lshhex 

•GET  START  ADDRESS 

0AC7' 

D4 

c+ 

0AC8’ 

016D' 

c+ 

OACA' 

9C 

c 

GEL 

RC 

•REACT  TO  UART  ERRORS 

OACB' 

FA  FE 

c 

m 

OFEB 

MASK  NON-HEX  FLAG 

OACD' 

CA  08F9' 

c 

LBNZ 

erroit 

OADO' 

8C 

c 

OD 

RC 

LOCK  PCR 

0AD1' 

FB  OD 

c 

XRI 

CR 

CARRIAGE  RETORN 

0AD3' 

a  08F9' 

c 

LENZ 

ERRCOT 

ERROR  IF  NOT  POUND 

0AD6' 

8B 

c 

GLO 

RB 

TRANSFER  RUN  ADDRESS 

0AD7' 

AO 

c 

PLO 

RO 

TO  RO 

0AD8’ 

9B 

c 

mi 

RB 

0AD9' 

BO 

c 

PHI 

RO 

QADA' 

EO 

c 

SIX 

RO 

SET  X  TO  RO 

OADB' 

DO 

c 

SEP 

RO 

RUN  THE  PROGRAM 

OADC' 

CO  08ED' 

c 

I£R 

pram  ;R3  LOT  POINTING  HERE 

C 

C 

C 

C 

C 


;The  response  to  an  M  typed  as  the  command  is  to  move 
;a  block  of  memory  from  a  specified  location  to  a 
;spedfied  location  over  a  given  length. 


OADF’ 

C 

MOTE: 

GETTTjG 

;IS  THE  SYSTEM  LOCKED  ? 

OADF' 

F8  01 

c+ 

OAEl* 

A7 

c+ 

0AE2’ 

07 

c+ 

0AE3' 

F6 

c 

SHR 

;IF  SO,  TYPE  THE  ERROR 

0AE4' 

a  OAEA' 

c 

[£DF 

SPEC 

;MESSAGE  THEM  PROMPT 

0AE7* 

OO  08C6' 

c 

I£R 

NCRUN 

;POR  NEXT  CCMffiND 

c 

* 

OAEA' 

ET7 

c 

SPEC: 

SEX 

R7 

; OTHERWISE,  RESET  THE 

OAEB' 

F8  FE 

c 

LDI 

OFEH 

;LXK  FLAG 

OAED' 

F2 

c 

AND 

OAEE' 

57 

c 

STR 

R7 

c 

t 

c 

TYPMSG 

(OTE 

; PROMPT  FOR  SOURCE 

OAEF' 

D4 

c+ 

QAFO* 

OOCB' 

c+ 

0AF2' 

0444' 

c+ 

0AF4' 

9C 

c+ 

0AF5' 

CA  0939' 

c+ 

c 

CALL 

PHXIN 

;GET  SOURCE  ADDRESS 

0AF8' 

D4 

c+ 

OAFS' 

01E6' 

c+ 

OAFB' 

03DD' 

c 

DW 

FROM 

c 

ERROR? 

;LOOK  FOR  ERRORS 

OAFD' 

9C 

c+ 

81 
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QAFE' 

CA  0939' 

C+ 

c 

0B01' 

8B 

c 

0B02* 

AA 

c 

0B03' 

9B 

c 

0B04' 

BA 

c 

c 

c 

0B05' 

D4 

c+ 

OB06' 

01E6' 

c+ 

CB08' 

03E5' 

c 

c 

OBOA' 

9C 

c+ 

(BOB' 

CA  0939’ 

c+ 

c 

OBOE' 

SB 

c 

OBOF' 

AD 

c 

0B10' 

9B 

c 

0B11' 

BD 

c 

c 

c 

0B12' 

D4 

c+ 

0813' 

01E6' 

c+ 

0B15' 

03EB' 

c 

c 

obit 

9C 

c+ 

0B18‘ 

CA  0939' 

c+ 

c 

091B' 

D4 

c+ 

OBIC' 

0113' 

c+ 

c 

0B1E' 

9C 

c+ 

OBIT 

CA  0939* 

c+ 

0B22’ 

8C 

c 

0B23' 

CA  08ED* 

c 

c 

0B26' 

4A 

c 

0B2T 

5D 

c 

0B28' 

ID 

c 

0B29' 

2B 

c 

0B2A' 

9B 

c 

0B2B' 

CA  0B26’ 

c 

0B2E' 

8B 

c 

0B2F' 

CA  0B26' 

c 

OB32' 

CO  08ED' 

c 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


GUO  RB 

PUD  RA 

(Si  KB 

pm  ra 

CAIU  PHXIN 


DM  TO 
ERROR? 


(30  RB 

PLO  RD 

GEE  RB 

pm  RD 

CALL  PHHN 


DW  OVER 
ERROR? 


CALL  ASKCK 


ERROR? 


GLO  RC 

LBNZ  PRM3OT 

r 

MOVIT:  ISA  RA 

SIR  RD 

INC  RD 

DEC  RB 

GEE  RB 

LBNZ  UNIT 

GLO  RB 

I£NZ  MOVIT 

ILR  PRMOOT 


INCLUDE  mME.MAC 


;  PLACE  SOURCE  ADDRESS 
;IN  RA 


;<ET  DESTINATICN  ADDRESS 


;LOOK  FOR  ERRORS 


;  PLACE  DESTINATICN  ADDRESS 
;IN  RD 


;GET  BLOCK  SIZE 


;DOCK  FOR  ERRORS 


;ASK  FINAL  PERMISSION 


;DOCK  EOR  UART  ERRORS 


;GET  ANSWER 
rIF  NOT  YES  EXIT 

;GET  A  BYTE 
; STORE  IT 

;MOVE  TO  NEXT  DESTINATICN 
;COLNT  STORE  OPERATION 
;TEST  EOR  BLOCK  END 
;IF  NOT  AT  END 
;  CONTINUE,  OTHERWISE 

;GET  NEXT  COMMAND 


*  ITIME.MAC  * 


+  SET  AND  READ  THE  SOFTWARE  CLOCK  + 
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C 

C  response  to  a  ?T  cocmand  is  to  first  disable 

C  ; further  interrupts,  then  advance  the  clock.  This 
C  ;  "future"  time  is  then  typed  and  a  flag  is  set  for 

C  ;the  interrupt  service  routine  prior  to  re-enabling 

C  ;interrupts  and  executing  an  idle  instruction. 

C  ;Hiis  flag  will  cause  the  interrupt  routine  to  quickly 
C  ;exit  rather  than  advancing  the  clock.  The  interrupt 
C  ; re- activates  the  system,  and  an  @  is  typed  as  an 

C  ;iimediate  byte.  This  is  the  time  tick. 

C  ; 


C 

; Define  a  byte  of  ram 

to  be  used  as  a  flag  word. 

C 

n 

; Define  the  start  of  ASCII  time  message. 

FF17 

C, 

c 

TICK  B2U 

ODBAL+17H  ;TICK  FLAG 

FF18 

c 

NXD1  EQU 

TICK+01H  ;ASCH  HD 

c 

; 

0B35* 

E3 

c 

QUETIM:  SEX 

R3 

;DISABI£  INTERRUPTS 

0B36' 

71 

c 

BIS 

0B37' 

33 

c 

DB 

33H 

L 

c 

;  Advance  clock  by  one  minute  and  convert  this  "future" 

c 

;time  to  an  ASCII  message  string. 

0B38' 

F8  17 

c 

IDI 

LCW 

(TICK)  ;  POINT  TO  TICK  FLAG 

0B3A' 

A7 

c 

PUB 

R7 

;  USING  REGISTER  R7 

0B3B' 

F8  01 

c 

WI 

01H 

;SET  TICK  FLAG 

0B3D' 

57 

c 

SIR 

R7 

c 

CALL 

MICUC 

;  ADVANCE  TIME  BY  1  MIN. 

0B3E' 

D4 

c+ 

0B3F' 

0282' 

c+ 

0B41' 

F8  18 

c 

IDI 

LCW 

(TICK+1) 

0B43* 

AA 

c 

FID 

RA 

0B44' 

97 

c 

cm 

R7 

;  USING  RA,  POINT  TO 

0B45' 

BA 

c 

PHI 

RA 

; ASCII  HUNDREDS  OF  DAYS 

0B46’ 

F8  10 

c 

WI 

LCW 

(HD)  ;  POINT  AT  "FUIURE"  TIME 

0B48' 

A7 

c 

PUB 

R7 

; USING  R7 

c 

CAUi 

DTOA 

;CCNVERT  DAYS  TO  ASCII 

0B49' 

D4 

c+ 

0B4A' 

0095' 

c+ 

0B4C' 

03 

c 

DB 

03H 

0B4D' 

F8  20 

c 

IDI 

SPACE 

; STORE  A  SPACE 

0B4F' 

5A 

c 

SIR 

RA 

0B50' 

1A 

c 

INC 

RA 

c 

CALL 

DTOA 

;CCNVERT  HOURS  TO  ASCII 

0B51' 

D4 

c+ 

0B52' 

0095' 

c+ 

0B54' 

02 

c 

DB 

02H 

0B55' 

F8  3A 

c 

IDI 

*f  •«« 

;STORE  A  SOU  COLON 

OB57' 

5A 

c 

STR 

RA 

0B58' 

1A 

c 

INC 

RA 

c 

CAID 

DTOA 

; CONVERT  MINS.  TO  ASCII 

0859' 

D4 

c+ 

0B5A' 

0095' 

c+ 

0B5C' 

02 

c 

DB 

02H 

0B5D' 

F8  7E 

c 

IDI 

STOP 

; STORE  A  STOP  CHARACTER 
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OB5F' 

5A 

C 

STR 

RA 

C 

TYFMSG 

SPSP 

;TYPE  TWO  SPACES 

0B60' 

D4 

c+ 

0B61* 

OOCB' 

c+ 

OB63' 

03D3' 

c+ 

0B65' 

9C 

c+ 

0B66' 

CA  0939' 

c+ 

c 

TYFMSG 

NJOM 

;OUIPUT  TIME  AT  NEXT  9 

0B69' 

D4 

c+ 

OB6A' 

OOCB' 

c+ 

0B6C' 

EE18 

c+ 

0B6E' 

9C 

c+ 

0B6F' 

a  0939' 

c+ 

c 

TYPMSG 

SECS 

0B72' 

D4 

c+ 

0B73' 

OOCB' 

c+ 

(BIS' 

044F' 

c+ 

0B77' 

9C 

c+ 

OB 78' 

CA  0939' 

c+ 

0B7B' 

E3 

c 

SEX 

R3 

;  RESET  INTERRUPT  HARDWARE 

OB1C' 

65 

c 

air 

CLRLNT 

0B7D' 

00 

c 

DB 

OOH 

0B7E* 

70 

c 

RET 

;  ENABLE  INTERRUPTS 

0B7F' 

33 

c 

DB 

33H 

0B80' 

00 

c 

QL 

;GO  TO  SUIT 

c 

c 

TYPMSG 

AT 

;SEND  THE  9 

OB81' 

D4 

c+ 

OB82' 

OOCB' 

c+ 

0B84' 

0457' 

c+ 

0B86' 

9C 

c+ 

OB87' 

CA  0939' 

c+ 

0B8A' 

a  0F4B' 

c 

IBQ 

MSRSEQ 

;MAKE  A  MEASUREMENT  OR 

0B8D' 

CO  08ED’ 

c 

l£R 

PRM3UT 

;GET  THE  NEXT  COMMAND 

V 

c 

t 

;This  is  the  response  to  a  !T  ccnmand.  Ibe  action  taken  is 

c 

;to  stop  the  clock,  disable  interrupts,  and  input  tine  code. 

c 

;Once  the  tine  code  is 

input  its  ASCn  bias  is  removed,  then 

c 

;the  resulting  digits  are  stored  in  RAM  starting  at  "HD".  When 

c 

;nine  digits  have  been  input,  (seconds  oust  be  00)  the  system 

c 

; waits  for  the  f.  Upon  receiving  an  ®,  the  clock  is  allowed  to 

c 

;run,  interrupts  are  enabled,  and  a  branch  to  CMDIN  is  executed. 

0B90' 

E3 

c 

c 

U7ITM  i  SEX 

R3 

;  DISABLE  INTERRUPTS 

0B91' 

71 

c 

DIS 

0B92' 

33 

c 

IB 

33H 

OB93' 

F8  10 

c 

1DI 

I£V 

(HD)  ;  POINT  AT  TIME  DATA 

0B95' 

AA 

c 

PLO 

RA 

OB%' 

F8  ET 

c 

IDI 

HIGH 

(HD) 

0B98' 

BA 

c 

PHI 

RA 

0B99' 

F8  07 

c 

IDI 

07H 

;SET  THE  DIGIT  COUNTER 

0B9B' 

AD 

c 

riD 

RD 

;EOR  SEVEN  DIGITS 

OB9C' 

E3 

c 

INTIM:  SEX 

R3 

.•STOP  THE  CLOCK 

0B9D' 

64 

c 

OUT 

stpcuc 

OB9E’ 

00 

c 

DB 

OOH 
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C 

CALL 

INCHAR 

;GET  A  CHARACTER 

0B9F' 

D4 

C+ 

OBAO' 

0145' 

C+ 

0BA2' 

9C 

C 

an 

RC 

;MASK  '•#"  BIT 

0BA3' 

FA  BF 

C 

ANI 

obeh 

;LOCR  FOR  UART  ERRORS 

0BA5' 

BC 

C 

PHI 

RC 

;  BRANCH  TO  ERVBC  IF 

0BA6' 

CA  0939* 

C 

IDNZ 

ERVBC 

;FOUt®,  OTHERWISE 

C 

CALL 

ATOH 

;IS  IT  A  HEX  NUMBER  2 

0BA9' 

D4 

c+ 

0BAA' 

0058' 

c+ 

OBAC' 

9C 

c 

GH 

RC 

;IF  NOT,  GET  ANOTHER 

OBAD' 

CA  0B9C* 

c 

I£NZ 

INTIM 

; NUMBER. 

OBBO’ 

8C 

c 

(30 

RC 

0BB1' 

FF  AO 

c 

SMI 

OAOH 

;IS  IT  A  DECIMAL  NUMBER  ? 

0BB3' 

C3  0B9C' 

c 

USX 

INTIM 

;IF  NOT,  GET  ANOTHER 

0BB6' 

8C 

c 

(30 

RC 

;  NUMBER.  IF  ITVAS  A 

0BB7' 

F6 

c 

SHR 

;EBdMAL  NUMBER,  HOVE 

0BB8* 

F6 

c 

SHR 

;  IT  TO  THE  LOST 

0BB9' 

re 

c 

SHR 

;  SIGNIFICANT  HAIR  OF 

OBBA' 

re 

c 

SHR 

;THE  ACCUNJUTOR  AND 

OBBB' 

5A 

c 

SIR 

RA 

; STORE  IT. 

OBBC' 

1A 

c 

INC 

RA 

;  POINT  TO  NEXT  IOCAIKW 

OBBD' 

2D 

c 

EEC 

RD 

;  COUNT  TOE  OPERATION 

OBBE' 

8D 

c 

(30 

RD 

;  ENTERED  SEVEN  DIGITS  YET  ? 

OBBF' 

CA  0B9C* 

c 

IHNZ 

INTIM 

;IF  NOT  GET  NEXT  NUMBER 

OB/C2' 

E 3 

c 

AT?: 

SEX 

R3 

; OTHERWISE,  STOP  TOE  OOCX 

0BC3' 

64 

c 

OOT 

STPOIL 

;  AGAIN  AND  BEGIN  LOCKING 

0BC4' 

00 

c 

DB 

OOH 

;por  « 

c 

CHAR? 

;GBT  A  CHARACTER 

0BC5' 

D4 

c+ 

0BC6' 

0145' 

c+ 

0BC8' 

9C 

c+ 

0BC9' 

CA  0939* 

c+ 

OTCC' 

8C 

c+ 

OBCD' 

FB  40 

c 

XRI 

;IS  IT  AN  ? 

OBCF' 

CA  0BC2* 

c 

LGNZ 

AT? 

;IF  NOT  KEEP  LOCKING 

0BD2' 

CO  03B0' 

c 

c 

/ 

1ISR 

SAIL 

?IF  SO,  DE-AEERESS 

c 

r 

r 

• 

INCLUDE  RAKTST.MAC 

************** 

c 

* 

• 

t 

*  RAMTST.MAC  * 

C 


C 


C 

C 

C 


+  TEST  RAM  OVER  SPECIFIED  AREA  + 


C 

C 

C 

C 

C 

C 

C 

C 

C 


:lhe  response  to  an  "R"  ormand  is  to  first  test  the  system 
flag,  then,  if  this  flag  is  set,  to  prompt  for  a  start  address 
•and  block  size.  If  the  system  flag  was  not  set,  exit  and 
indicate  an  operator  error  since  the  memory  was  protected. 
After  the  start  ackiress  and  block  size  have  been  input,  type 
"CK  ?  (Y/N)  if  the  operator  types  a  "Y”  in  response  to  this 
question  proceed  with  the  RAM  TEST.  Load  the  entire  specified 
block  of  RAM  with  a  random  number  and  verify  a  byte  at  a  time. 
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C  ;Type  the  address  of  each  compare  failure  and  its  XQR  data. 

C  ; Repeat  the  tests  changing  the  randan  number  with  each  pass. 

C  , 'Program  will  exit  upon  detecting  a  UART  error,  but  since 

C  ; interrupts  have  been  disabled,  the  system  MUST  be  reset. 

C 


0BD5* 

C 

RAMTST:  TYPMSG 

RKTST 

;TYPE  "am  test" 

08D5' 

D4 

C+ 

08D6’ 

OOCB' 

c+ 

0BD8' 

0596* 

c+ 

OBDA' 

9C 

c+ 

OBEB* 

a  0939' 

c+ 

c 

GETELG 

;IS  TOE  SYSTEM  LOCKED? 

OBDE' 

F8  01 

c+ 

OBEX)' 

A7 

c+ 

0BE1’ 

07 

c+ 

0BE2' 

P6 

c 

SHR 

;IF  SO,  TYPE  TOE  ERROR 

0BE3' 

C3  0BE9' 

c 

U BDF 

RSPEC 

;  MESSAGE  AND  PROMPT 

0BE6' 

CO  08C6" 

c 

IBR 

NCRUN 

; OTHERWISE,  RESET  TOE 

0BE9' 

E7 

c 

RSPEC:  SEX 

R7 

;  SYSTEM  LOCK  FLAG 

OBEA* 

F8  FE 

c 

im 

OFEE 

0BEC' 

E*2 

c 

AND 

OBED* 

57 

c 

SIR 

R7 

,-TOEN  PROMPT  EOR 

c 

CAIli 

GET2HX 

;  START  ADDRESS  AND  BLOCX  SIZE 

OBEE' 

D4 

c+ 

OBEF' 

023C* 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

0BE1' 

9C 

c+ 

OBF2' 

CA  0939' 

c+ 

CBF5' 

9A 

c 

<21 

RA 

;SAVE  START  ADDRESS 

0BF6' 

B8 

c 

PHI 

R8 

;  USING  REGISTER  R8 

QBF7* 

8A 

c 

GLD 

RA 

0BF8' 

A8 

c 

PUD 

R8 

OBF9' 

9B 

c 

(All 

RB 

;SAVE  BLOCK  SIZE 

OBFA' 

B9 

c 

PHI 

R9 

;  USING  REGISTER  R9 

OBFB' 

8B 

c 

<20 

RB 

OBEC' 

A 9 

c 

PUD 

R9 

c 

CALL 

ASKEK 

;ASK  FINAL  PERMISSION 

OBED’ 

D4 

c+ 

(BEE* 

0113' 

c+ 

0 

ERROR? 

;  REACT  TO  UART  ERRORS 

OCOO* 

9C 

c+ 

OCOl’ 

a  0939' 

C+ 

0C04* 

80 

C 

GLO 

RC 

;GET  ANSWER 

0C05' 

CA  08ED' 

c 

LBNZ 

PRMDUT 

;EOT  IF  NOT  YES 

c 

TYPMSG 

CRlf 

;  OTHERWISE,  TYPE  A  CR/LF 

0C08' 

D4 

c+ 

0C09' 

OOCB' 

C+ 

OCOB' 

03D0' 

c+ 

OCOD' 

90 

c+ 

OCOE’ 

a  0939' 

c+ 

0C11’ 

E3 

C 

SEX 

R3 

;  DISABLE  INTERRUPTS 

0C12* 

71 

c 

DIS 

;TO  STOP  TOE  CLOCK 

0C13' 

33 

c 

EB 

33H 

;AND  FALSE  RAM  ERRORS 

0C14' 

F8  73 

c 

IDI 

73H 

;AND  SET  RANDOM  KEY  = 

0C16' 

BF 

c 

PHI 

RF 

;  01110011 

0C17' 

F8  00’ 

c 

LCI 

HIGH 

(LDREGS) 
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0C19* 

BO 

c 

PHI 

RO 

;SET  UP  RO  TO  BE  A 

0C1A' 

F8  27' 

c 

UDI 

LOW 

(LIMES) 

0C1C' 

AO 

c 

PUD 

RO 

;  SUBROUTINE  POINIER 

ocld' 

F8  OC' 

c 

IDI 

HIGH 

(RAND) 

0C1F* 

BE 

c 

PHI 

RE 

;SET  UP  RE  TO  BE  A 

0C20' 

F3  35' 

c 

IDI 

LOW 

(RAND) 

0C22' 

AE 

c 

PLO 

RE 

.•SUBROUTINE  POINTER 

-  0C23' 

CO  OCSC' 

c 

LBR 

NCYCIZ 

;  EXECUTE  RAM  TEST 

C 


C 


;This  is  a  subroutine  which  will  load  the  next  random 


C 

C 

C 


key  to  the  high  half  of  register  RD,  the  start  address 
:to  register  RA,  and  the  block  size  to  register  RB. 

Using  a  subroutine  here  slews  execution,  but  saves  PRCM. 


C 


OC26' 

D3 

C 

LTCP:  SEP 

R3 

;BACK  TO  RAM  TEST 

0C27' 

9F 

C 

IXREGS:  GHI 

RF 

;®T  NEW  KEY 

0C28' 

BD 

C 

PHI 

RD 

,-PASS  TO  RD 

0C29' 

98 

C 

(SI 

R8 

;GET  START  ADDRESS 

0C2A' 

BA 

C 

PHI 

RA 

0C2B' 

88 

C 

GUO 

R8 

;PASS  TO  RA 

0C2C' 

AA 

C 

PUD 

RA 

0C2D' 

99 

C 

GHI 

R9 

;GET  BLOCK  SIZE 

0C2E' 

BB 

C 

PHI 

RB 

0C2F' 

89 

C 

GUO 

R9 

,-PASS  TO  RB 

0C30' 

AB 

C 

PUD 

RB 

0C31' 

CO  0C26* 

C 

C 

C 

C 

LBR  LTOP  ;  RETURN 

t 

;This  is  a  subroutine  which  will  return  with  a  random 
; number  in  the  high  half  of  register  RD.  The  randan 

C  ;mmber  is  generated  by  right  shifting  the  modulo  2  sum 
C  ;of  bits  0,2,3, and  4  to  bit  7. 

C  ; 


0C34' 

D3 

C 

RTOP: 

SET 

R3 

;BACX  TO  RAM  TEST 

OC35' 

F8  00 

C 

RAND: 

IDI 

OOH 

;KFY  IS  IN  RD  HIGH 

0C37' 

AD 

C 

PLO 

RD 

0C38' 

9D 

c 

GHI 

RD 

;SET  TO  FFH  IF  KEF 

0C39' 

CA  0C3F' 

c 

WSL 

OMOO 

;IS  NCW  EQUAL  TO  00 

0C3C' 

F8  FT 

c 

IDI 

OFTH 

0C3E' 

BD 

c 

PHI 

RD 

0C3F' 

F6 

c 

08*00: 

SHR 

;TEST  BIT  1 

0C40' 

CB  0C44' 

c 

LfiNF 

08*01 

;ADD  CNE  IF  SET 

0C43' 

ID 

c 

INC 

RD 

0C44' 

F6 

c 

08101: 

SHR 

;SKIP  BIT  1 

0C45’ 

F6 

c 

SHR 

;TEST  BIT  2 

0C46' 

CB  0C4A' 

c 

IDNF 

08*02 

;ADD  CUE  IT  SET 

0C49' 

ID 

c 

INC 

RD 

0C4A' 

F6 

c 

<25*02: 

SHR 

;TEST  BIT  3 

0C4B' 

CB  0C4F' 

c 

U3NF 

08*03 

;ADD  CNE  IF  SET 

0C4E' 

ID 

c 

INC 

RD 

0C4F' 

F6 

c 

08*03: 

SHR 

;TEST  BIT  4 

OC50' 

CB  0C54' 

c 

IDNF 

08*04 

;ADD  CNE  IF  SET 

OC53' 

ID 

c 

INC 

RD 

0C54' 

8D 

c 

<28104: 

GUO 

RD 

;GET  RESULT  OF  SUM 

0CS5’ 

F6 

c 

SHR 

0C56' 

9D 

c 

(SI 

RD 

;  SHIFT  IT  TO  RD  HIGH 

0C57' 

76 

c 

RSHR 
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OCS8’ 

BD 

C 

PHI 

OC59' 

CO  0C34' 

C 

LfiR 

C 

I 

0C5C’ 

DO 

C 

NCYOE:  SEP 

0C5D' 

DE 

C 

WRITE:  SEP 

OCSE' 

9D 

C 

an 

OCSF' 

5A 

C 

STR 

0C60' 

1A 

C 

INC 

0C61’ 

2B 

C 

rax: 

0C62' 

9B 

c 

ail 

OC63' 

a  0C5D' 

c 

I£NZ 

0C66' 

8B 

c 

GLO 

OC67* 

CA  0C5D' 

c 

L£NZ 

OC6A' 

DO 

c 

VERIFY:  SEP 

0C6B* 

DE 

c 

VERCYC:  SEP 

OC6C' 

9D 

c 

GHI 

OC6D’ 

EA 

c 

SEA 

0C6E' 

F3 

c 

XCR 

0C6F' 

CA  OC8D' 

c 

LBNZ 

OC72' 

1A 

c 

EKILOC:  INC 

0C73* 

2B 

c 

rax: 

0C74* 

9B 

c 

GHI 

OC75' 

CA  0C6B' 

c 

IDNZ 

OC78' 

8B 

c 

GLO 

OC79* 

CA  0C6B' 

c 

LHC 

c 

TYPMSG 

OC7C* 

D4 

c+ 

0C7D' 

OOCB' 

c+ 

OC7F' 

0594' 

c+ 

OC81' 

9C 

c+ 

0C82' 

CA  0939' 

c+ 

0C85' 

9F 

c 

GHI 

OC86' 

BD 

c 

PHI 

0C87' 

DE 

c 

SEP 

0C88' 

9D 

c 

GHI 

0C89' 

BF 

c 

PHI 

OC8A' 

CO  0C5C' 

c 

L£R 

OC8D' 

AD 

c 

WRTERR:  PLO 

c 

TYPMSG 

0C8E' 

D4 

c+ 

0C8F' 

OOCB' 

c+ 

0C91' 

03D6' 

C+ 

OC93' 

9C 

c+ 

0C94' 

a  0939’ 

c+ 

0C97' 

9A 

c 

GHI 

OC98' 

AC 

c 

PLO 

c 

CALL 

0C99' 

D4 

c+ 

0C9A' 

021F' 

C+ 

c 

ERROR? 

OC9C' 

9C 

c+ 

0C9D' 

CA  09.9* 

C+ 

OCAO' 

8A 

c 

GLO 

0CA1' 

AC 

c 

PLO 

c 

CAIL 

OCA2' 

D4 

c+ 

RD 

RTOP 

RETURN 

RO 

LOAD  REGISTERS 

RE 

GENERATE:  A  RANDOM  NUMBER 

RD 

AND 

RA 

STORE  IT 

RA 

MOVE  POINTER 

RB 

COUNT  OPERATION 

RB 

CONTINUE  UNTIL 

write: 

SPECIFIED  BLOCK 

RB 

IS  LOADED  WITH 

write: 

RANDOM  NUMBERS 

RO 

RESET  AIL  REGISTERS 

RE 

GENERATE  A  RANDOM  NUMBER 

RD 

COMPARE  IT  WITH  RAM  DATA 

RA 

IF  DIFFERENT  THESE  IS 

AN  ERROR 

WRTERR 

RA 

JOVE  POINTER 

RB 

COUNT  OPERATION 

RB 

CONTINUE  UNTIL 

VERCYC 

AIL  SPECIFIED  RAM 

RB 

HAS  BEEN  EXAMINED 

VERCYC 

ASTK 

;TYPE  AN  *  AT  END  OF  PASS 

RF 

;GET  LAST  KEY 

RD 

; RANDOMIZE  IT 

RE 

;THE  RESULT 

RD 

;BKXMES  NEW  KEY 

RF 

NCYCLL 

;MAKE  ANOTHER  PASS 

RD 

;SAVE  RESULT  CF  XOR 

CSLFSP 

;MOVE  TO  NEXT  LINE 

RA  ;TYPE  CURRENT  ADDRESS 

RC 

TYPEE  ;HIGH  BYTE 


;  REACT  TO  UART  ERRORS 


RA 

RC 

TYPEC  ;AND  LCV  BYTE 
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0CA3* 

0211" 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

OCAS' 

9C 

c+ 

OCAS' 

CA  0939' 

c+ 

c 

TYPMSG 

SPSP  ;TYPE  TWO  SPACES  AND 

0CA9' 

D4 

c+ 

OCAA' 

OOCB' 

c+ 

OCAC' 

03D3' 

c+ 

OCAE' 

9C 

c+ 

OCAF' 

CA  0939' 

c+ 

0CB2* 

8D 

c 

(30 

RD  ;THE  RESULT  CF  THE  XOR 

0CB3' 

AC 

c 

PUD 

RC 

c 

CALL 

TOPEC 

0CB4' 

D4 

c+ 

0CB5' 

021F' 

Ct 

C 

ERRCR? 

;  REACT  TO  UART  ERRORS 

0CB7' 

9C 

C+ 

0CB8' 

CA  0939' 

c+ 

0CB8' 

CO  0C72' 

c 

LBR 

NXTLOC  :TEST  THE  NEST  LOCATION 

c 

c 

INCLUDE  ISCEMj.MAC 

c 

c 

c 

*  SCEMi.MAC  * 

c 

c 

c 

c 

+  SET  THE  INTERROGATOR  SCHEME  + 

c 

c 

c 

■This  block  of  code  will  set  the  operating  schedule 

c 

■of  the  interrogator.  Two  parameters  are  set  via  prompts 

c 

■the  start  time 

and  the  measurement  interval. 

c 

c 

Define 

decimal 

and  ASCII  start  times  in  RAM 

c 

FF30 

C  DSHD 

BSP 

GUBKW-30H 

FF36 

C  DSUM 

B3U 

DSHD+06H 

FF38 

C  ASHD 

aau 

GL0BAL+38H 

FF3C 

C  ASTB 

ECU 

ASHD+04H 

FF3F 

C  ASTK 

Q3J 

ASTH+03H 

FF3E 

C  ASUN 

B2U 

ASHD+06H 

C 

1 

C 

■Define 

decimal  and  ASCII  measurement  interval  in  RAM 

C 

FF45 

C  DIHM 

BJJ 

GLCBAL+45H 

FF4A 

C  AIHM 

ESP 

DIHM+05H 

FF24 


C 

C 

C 

C 

C 

C 

c 

c 


Define  a  location  in  ram  to  bold  the  hex  equivalent 
of  the  measurement  interval. 


HEXMI  EQU 


GL0BAL+24H 


Define  another  location  for  the  nunber  of  minutes 
in  hex  to  the  next  measurement.  This  number  is  only 
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C  ; valid  if  the  schedule  is  active. 

C 


FF26 

C 

r* 

NINON  ECU 

HEXNI+2 

OCBE' 

F8  36 

c 

/ 

IDSCED:  LDI 

LON 

(DSUM) 

;  POINT  AT  START  TIME 

OCCO' 

A7 

c 

PIC 

R7 

;AND  LOAD  ZEROS 

0CC1' 

E7 

c 

SEX 

R7 

0CC2' 

F8  00 

c 

LDI 

OOH 

00C4' 

73 

c 

STXD 

OCCS' 

73 

c 

STXD 

OOC6' 

73 

c 

STXD 

0CC7' 

73 

c 

STXD 

00C8' 

73 

c 

STXD 

00C9' 

73 

c 

STXD 

OCCA* 

57 

c 

SIR 

R7 

;R7  NAS  POINTING  TO  SDHD 

OOCB' 

F8  43 

c 

Id 

LON 

(G0FL3) 

;  DEARM  SCHHXJIiR 

OOCD' 

A7 

c 

PIC 

R7 

;BY  LOADING  ZEROS 

OOCE' 

F8  00 

c 

ICI 

OOH 

;TO  BOTH  HALVES  CF 

OCDO’ 

57 

c 

STR 

R7 

;0F  THE  00  FLAG 

OCDl' 

17 

c 

INC 

R7 

0CD2' 

57 

c 

SIR 

R7 

c 

TYPMSG 

STDAV 

.'PROMPT  FOR  START  DAY 

OCD3'  D4  C+ 
OCD4'  OOCB'  C+ 
OCD6'  0465'  C+ 
0CD8'  9C  C+ 
0CD9'  CA  0939'  C+ 


C 

CALL 

index: 

GET  START  DAY  AND 

OCDC' 

D4 

c+ 

OCDD' 

01%' 

c+ 

OCDF' 

FF32 

C 

DH 

DSHEH-2 

STORE 

001* 

03 

c 

DB 

03H 

(THREE  DIGITS) 

0CE2' 

9C 

c 

OH 

RC 

LOCK  FOR  ERRORS 

0CE3' 

FA  FE 

c 

ANI 

OFEH 

MASK  NON-DECIMAL  BIT 

0CE5' 

CA  0939' 

C 

LBNZ 

ERVEE 

EXIT  CN  ERROR 

0CE8' 

8C 

c 

GLO 

RC 

TEST  FOR  SPACE 

0CE9’ 

FB  20 

c 

XRI 

SPACE 

CCNTINUE  IF  FOUND 

OCEB’ 

a  08F9' 

c 

l£NZ 

ERROJT 

OTHERWISE, INDICATE  ERROR 

c 

TYPMSG 

STBOUR 

PROMPT  FOR  START  HOUR 

OCEE' 

D4 

C+ 

oar 

OOCB' 

C+ 

0CF1' 

0478’ 

C+ 

003' 

9C 

C+ 

004' 

CA  0939’ 

c+ 

c 

CALL 

index: 

GET  START  HOUR  AND 

oar 

D4 

C+ 

0CF8' 

0196’ 

c+ 

OOA' 

ET34 

c 

W 

DSHDE4 

STORE 

oar 

02 

c 

re 

02H 

(TWO  DIGITS) 

OOD' 

9C 

c 

cm 

RC 

LOCK  FOR  UART  ERRORS 

OCEE' 

FA  re 

c 

Aid 

am 

BY  MASKING  NON-DECIMAL 

ODOO’ 

CA  0939' 

c 

IBNZ 

ERVBO 

EXIT  IF  FOUND 

0D03' 

8C 

c 

GLO 

RC 

LOCK  FOR  A  SPACE 

0DO4' 

FB  20 

c 

XRI 

SPACE 

OCNTINUE  IF  FOUND 

0DO6' 

CA  08F9' 

c 

l£NZ 

ERROUT 

OTHERWISE  INDICATE  ERROR 

c 

TYPMSG 

SOON 

PROMPT  FOR  START  MMJIE 
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0D09' 

D4 

C+ 

ODQA' 

OOCB' 

C+ 

ODOC' 

0482' 

C+ 

ODOE' 

9C 

C+ 

ODOF' 

CA  0939' 

C+ 

C 

CALL 

index: 

;(2T  START  MINUTE  AND 

0D12' 

D4 

C+ 

-  0D13' 

0196’ 

C+ 

0D15' 

FF36 

C 

nr 

DSHD+6 

;STORE 

0D17' 

02 

C 

I® 

02H 

;TVO  DIGITS 

0D18' 

9C 

C 

(Ail 

RC 

;LOOK  FOR  IIART  ERRORS 

0D19' 

FA  FE 

c 

ANI 

OFEH 

;MASK  NCtHDOMAL  ELAG 

0D1B' 

CA  0939’ 

c 

IBNZ 

ERVEC 

;EXTT  CN  ERROR 

0D1E' 

8C 

c 

oo 

RC 

;LOCK  FCR 

omr 

FB  20 

c 

XRI 

SPACE 

;A  SPACE 

0D21' 

C2  0D2A' 

C 

LBZ 

EMINT 

;IF  FOUND  OCNTINUE 

0D24' 

8C 

c 

GOO 

RC 

;OTHERWISE  LOCK  FCR  A 

0D25’ 

FB  OD 

c 

XRI 

CR 

;  CARRIAGE  RETURN 

0D271 

CA  08F9’ 

c 

IBNZ 

ERROUT 

;  ERROR  IF  NOT  POUND 

c 

c 

Start  date  and  tine  are  now  in 

RAM.  Measurement 

c 

interval  is  next  prompted  far. 

input,  converted 

c 

•to  hex,  and  stored  in  two  locations. 

0D2A' 

c 

c 

MGNT:  TYPMSG 

MEAINT 

; PROMPT  FOR  MEAS.  INT. 

0D2A' 

D4 

c+ 

0D2B' 

OOCB' 

c+ 

0D2D' 

048E' 

c+ 

0D2F' 

9C 

c+ 

0D3O' 

CA  0939' 

c+ 

c 

CALL 

INDEX: 

;GET  MEASUREMENT  W  RVAL 

OD33' 

D4 

c+ 

0034’ 

0196’ 

c+ 

0D36' 

FF47 

c 

nr 

DIfflH-2 

;AND  STORE 

0038' 

03 

c 

E8 

03H 

;  (THREE  DIGITS) 

0039’ 

9C 

c 

GEE 

RC 

;LOCK  FCR  UART  ERRORS 

QD3A’ 

FA  FE 

c 

ANI 

OFEH 

;AND  EXIT  IF  POUND 

QD3C' 

CA  0939’ 

c 

L£NZ 

ERVEC 

;  INDICATE  AN  ERROR 

0D3F' 

8C 

c 

GLO 

RC 

;LOOK  FCR  A  SPACE 

0D40' 

FB  20 

c 

XRI 

SPACE 

;OCNnNUE  IF  POUND 

0D42' 

C2  0D4E' 

c 

LBZ 

BCDHEX 

.•OTHERWISE, 

0045' 

8C 

c 

glo 

RC 

;LOOK  FOR  A 

0046' 

FB  OD 

c 

XRI 

CR 

;  CARRIAGE  RETURN 

0048* 

C2  0D4E' 

c 

LBZ 

BCDHEX 

;CCNT.  IF  POUND,  OTHERWISE 

0D4B' 

CO  08F9' 

c 

LBR 

ERROOT 

;  INDICATE  AN  OPERATOR  ERROR 

0D4E' 

E7 

c 

BCDHEX:  SEX 

R7 

;POTNT  AT  DEC.  INT.  U.M. 

0D4F' 

F8  47 

c 

LDI 

LOW  (DIHM+-2) 

0D51' 

A7 

c 

PLO 

R7 

;  CONVERT  MEASUREMENT 

0D52' 

F8  00 

c 

IDI 

OOH 

;  INTERVAL  TO  HEX 

0D54' 

AA 

c 

FLO 

RA 

0D55' 

BA 

c 

PHI 

RA 

;ZERO  REGISTER  RA 

0D56' 

07 

c 

IBM 

R7 

;G£T  UNITS  DIGIT 

0D57' 

AA 

c 

PLO 

RA 

0D58' 

27 

c 

DEC 

R7 

;  POINT  AT  TENS  DIGIT 

0D59' 

07 

c 

LDN 

R7 

,SET  ADD  COUNTER 

0D5A' 

AC 

c 

PLO 

RC 

;AND  TEST  FOR  ZERO 
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0D5B' 

C2  0D67' 

C 

LBZ 

AD100 

; ADVANCE  IF  ZERO 

0D5E' 

8A 

C 

AD10: 

GUO 

RA 

.•OTHERWISE,  ADD  OAH 

0D5F' 

FC  OA 

C 

ADI 

OAH 

;T0  ACCUMULATOR 

0D61' 

AA 

C 

PLO 

RA 

0D62' 

2C 

C 

DEC 

RC 

; COUNT  OPERATION 

0D63' 

8C 

C 

GLO 

RC 

0D64' 

CA  0D5E' 

C 

L£NZ 

AD10 

;  CONTINUE  TDL  ZERO 

0D67’ 

27 

c 

AD100: 

DEC 

R7 

;  POINT  AT  HUNDREDS  DIGIT 

0D68' 

07 

c 

UK 

R7 

;S£T  ADD  COUNIER 

0D69’ 

AC 

c 

PLO 

RC 

0D6A' 

C2  0D7A' 

c 

LBZ 

BHDCNE 

;IF  ZERO  CONVERT  IS  DONE 

0D6D’ 

8A 

c 

NXTADD: 

GUO 

RA 

; OTHERWISE,  ADD  64H 

0D6E' 

FC  64 

c 

ADI 

64H 

;TO  ACCUMULATOR 

0D70* 

AA 

c 

PLO 

RA 

0D71 ' 

9A 

c 

GBI 

RA 

0D72' 

7C  00 

c 

ADCI 

OOH 

;  INCLUDE  CARRY  BIT 

0D74' 

BA 

c 

pm 

RA 

0D75' 

2C 

c 

DSC 

RC 

;  COUNT  OPERATICN 

0076* 

8C 

c 

GUO 

RC 

GUT)' 

CA  0D6D' 

c 

IDNZ 

NXIMD 

;CCNnNUE  TEA  ZERO 

0D7A' 

F8  27 

c 

BHDCNE: 

IDI 

LOW 

(KD**f+l) 

0D7C' 

A7 

c 

PUD 

R7 

;  STORE  RESULT  OF 

0D7D' 

8A 

c 

GUO 

RA 

;  CONVERT  AT  MUCH 

0D7E' 

73 

c 

STXD 

0D7F’ 

9A 

c 

(211 

RA 

0D80' 

73 

c 

STXD 

0D81' 

8A 

c 

GUO 

RA 

;AND  AT  HEXHI 

0D82' 

V3 

c 

STXD 

0D83' 

9A 

c 

GBI 

RA 

0D84- 

57 

c 

SIR 

R7 

0D85' 

8A 

c 

GUO 

RA 

;TEST  RESULT  AND  IF 

0D86' 

FF  03 

c 

SHI 

03H 

;NOT  GREATER  THAN 

0088' 

9A 

c 

(SI 

RA 

;2  TYPE  AN  ERROR 

0D89* 

7F  00 

c 

SMBI 

OOH 

; MESSAGE,  OTHERWISE, 

0D8B' 

C3  0D9A' 

c 

IDDF 

SEEAD 

;SET  ADDRESS  POINTER 

c 

TYFKSG 

HDGN 

0D8E' 

D4 

c+ 

0D8F' 

OOCB' 

c+ 

0D91' 

0535' 

c+ 

OD93' 

9C 

c+ 

0D94' 

CA  0939' 

c+ 

0D97' 

CO  0D2A' 

c 

c 

IDR 

DWNT 

c 

n 

t 

;Set  the  data  address  pointer  to  its  first  location 

0D9A' 

F8  OF 

c 

c 

f 

SETAD: 

LDI 

LOW 

(STRADTH-1) 

0D9C' 

A7 

c 

PLO 

R7 

0D9D’ 

F8  00 

c 

LDI 

OOH 

; STORE  ADDRESS  OF 

0D9F’ 

73 

c 

STXD 

; FIRST  DATA  BYTE 

ODAO’ 

F8  10 

c 

IDI 

10H 

0DA2’ 

57 

c 

SIR 

R7 

c 

TYPKSG 

SPSP 

;ASK  IF  1HIS  SCHEDULE  IS  OK 

0DA3’ 

D4 

c+ 

0DA41 

OOCB' 

c+ 

0DA6' 

03D3' 

c+ 

0DA8' 

9C 

c+ 
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0EA9' 

CA  0939' 

C+ 

c 

TYPMSG 

OK? 

ODAC' 

D4 

c+ 

ODAD' 

OOCB' 

c+ 

ODAF' 

0423' 

c+ 

0DB1* 

9C 

c+ 

0DB2' 

CA  0939' 

c+ 

c 

CHAR? 

;®T  RESPONSE 

0E65' 

D4 

c+ 

0EB6' 

0145' 

c+ 

0DB8' 

9C 

c+ 

0DB9' 

CA  0939' 

C+ 

ODBC' 

8C 

c+ 

ODBD' 

FB  59 

c 

XRJ 

ifyil 

;IS  rr  YES  ? 

ODBF' 

a  ODCB' 

c 

IDNZ 

DEARM 

;IF  NOT  HOT 

0DC2' 

F8  43 

c 

IDI 

LOW 

(GOFLG) 

; OTHERWISE,  ARM 

0DC4' 

A7 

c 

PLD 

R7 

0DC5' 

F8  AA 

c 

IDI 

QAAH 

;BY  SETTING  HI  HAID 

0DC7‘ 

57 

c 

SIR 

R7 

;G0  FLAG  THEN 

0DC8' 

CO  08ED* 

c 

L£R 

PRKXJT 

;GET  NEXT  COMMAND 

ODCB' 

F8  43 

c 

DEARM:  IDI 

LCW 

(GOFLG) 

;  ANSWER  WAS  NOT 

ODCD' 

A7 

c 

PID 

R7 

;YES,  SO  RESET 

ODCE' 

F8  00 

c 

IDI 

00H 

;G0  FLAG  AND  EOT 

ODDO' 

57 

c 

STR 

R7 

0DD1' 

17 

c 

INC 

R7 

odd2' 

57 

c 

SIR 

R7 

0DD3' 

CO  08ED' 

c 

IDR 

PRUITT 

C 

C  ;The  response  to  a  ?S  camand  is  to  convert  the 
C  ; start  tine  and  transmission  interval  to  an  ASCII 
C  ; message  string,  type  the  message,  and  return  to  CMND. 
C  ; 


0DD6' 

F8  30 

c 

QRYSCED:IDI 

LOW 

(DSHD) 

CONVERT  START  TE 

0DD8' 

A7 

c 

PLO 

R7 

TO  Ascn 

0DD9' 

F8  38 

c 

IDI 

LOW 

(ASHD) 

STORE  AT  ASHD 

ora»* 

AA 

c 

PID 

RA 

USING  RA  AS  A  PO: 

ODDC' 

97 

c 

GHI 

R7 

ora®' 

BA 

c 

PHI 

RA 

c 

CAID 

DTOA 

i 

CONVERT  DAYS 

ODCE' 

D4 

c+ 

oras" 

0095' 

c+ 

coeh' 

03 

C 

DB 

03H 

0DE2' 

F8  7E 

c 

IDI 

STOP 

STORE  A  STOP 

0DE4' 

5A 

C 

STR 

RA 

BETWEEN  DAYS  AND 

0DE5' 

1A 

c 

INC 

RA 

BURS 

c 

CALL 

DTOA 

CONVERT  HOURS 

0DE6' 

D4 

c+ 

0DE7' 

0095' 

c+ 

0DE9' 

02 

c 

DB 

02H 

ODEA' 

F8  7E 

c 

IDI 

STOP 

STORE  A  STOP 

ODBC’ 

5A 

c 

STR 

RA 

BETWEEN  HOURS 

ODED' 

1A 

c 

INC 

RA 

AND  MINUTES 

c 

CAID 

DTOA 

CONVERT  MINUTES 

ODES' 

D4 

c+ 

ODEF' 

0095' 

c+ 

0DF1' 

02 

c 

DB 

02H 
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0DF2' 

F8  7E 

C 

IDI 

STOP 

STORE  A  STOP 

0DF4' 

5A 

C 

STR 

RA 

BETWEEN  MINUTES 

0DF5' 

1A 

c 

INC 

RA 

AND  TRAN.  INT. 

0DF6’ 

F8  45 

c 

IDI 

I£W 

(DIEM) 

CONVERT  TANS.  INT. 

0DF8' 

A7 

c 

PUD 

R7 

AND  STORE  AT  AIHM 

0DF9' 

ER  4A 

c 

IDI 

IOU 

(AIHM) 

USING  RA  AS  A  POINTER 

ODFB' 

AA 

c 

PLO 

RA 

c 

CAIL 

DTOA 

CONVERT  TRANSMISSION 

ODPC' 

D4 

c+ 

ODED' 

0095' 

c+ 

ODET' 

03 

c 

DB 

03H 

INITRVAL  TO  ASCT 

OEOO' 

F8  7E 

c 

LDI 

STOP 

STORE  MESSAGE 

OE02' 

5A 

c 

STR 

RA 

TTRMINATICN  CHARACTER 

c 

/ 

c 

;Type  current  time. 

c 

/ 

c 

TYPMSG 

SPSP 

;TYPE  TWO  SPACES 

0E03' 

D4 

c+ 

0004' 

OOCB' 

c+ 

0E06' 

03D3’ 

c+ 

0038' 

9C 

c+ 

0E09' 

CA  0939' 

c+ 

OEOC' 

F8  18 

c 

IDI 

i at 

(TICK+1) 

OBOE' 

AA 

c 

PLO 

RA 

■CONVERT  TIME  TO  ASCn 

OEOF' 

97 

c 

GET 

R7 

;  USING  RA  AS  A  POINTER 

OEIO' 

BA 

c 

PHI 

RA 

OEU' 

EB  10 

c 

IDI 

LCM 

(HD) 

OEL3' 

A7 

c 

PLO 

R7 

c 

CALL 

DTOA 

;  CONVERT  DAYS 

OE14' 

D4 

c+ 

0EL5' 

0095' 

c+ 

0117' 

03 

c 

DB 

03H 

0E18’ 

F8  20 

c 

IDI 

SPACE 

OELA' 

5A 

c 

STR 

RA 

OEHB' 

1A 

c 

INC 

RA 

c 

CAIL 

DTOA 

;  CONVERT  HOURS 

0E1C' 

D4 

c+ 

OEU)' 

0095’ 

c+ 

oEii" 

02 

c 

DB 

02H 

0E20' 

EB  3A 

c 

IDI 

0E22' 

5A 

c 

STR 

RA 

OE23' 

1A 

c 

INC 

RA 

c 

CALL 

DTOA 

;  CONVERT  MINUTES 

0124' 

D4 

c+ 

0E25' 

0095' 

c+ 

0E27' 

02 

c 

DB 

02H 

0E28' 

F8  7E 

c 

IDI 

STOP 

0E2A' 

5A 

c 

STR 

RA 

c 

TYPMSG 

SAT 

;SAY  AT 

0E2B' 

D4 

c+ 

0E2C' 

OOCB’ 

c+ 

0E2E' 

058C' 

c+ 

0E30' 

9C 

c+ 

0E31' 

CA  0939' 

c+ 

c 

TYPMSG 

NXTM 

;TYPE  TIME 

0E34’ 

D4 

c+ 
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OE35* 

OOCB' 

C+ 

OE37' 

FE18 

c+ 

OE39’ 

9C 

c+ 

OE3A’ 

CA  0939’ 

c+ 

c 

OE3D’ 

D4 

c+ 

OE3E1 

OOCB’ 

c+ 

0E40’ 

0465' 

c+ 

0E42' 

9C 

c+ 

OE43‘ 

CA  0939' 

c+ 

c 

0E46’ 

D4 

c+ 

0E47' 

OOCB’ 

c+ 

OE49' 

FF38 

c+ 

0E4B' 

9C 

c+ 

0E4C* 

CA  0939' 

c+ 

c 

0E4F' 

D4 

c+ 

0E50' 

OOCB* 

c+ 

OE52' 

0478' 

c+ 

0E54' 

9C 

c+ 

OE55' 

a  0939' 

c+ 

c 

OE58' 

D4 

c+ 

0E59' 

OOCB' 

c+ 

0E5B' 

FF3C 

c+ 

OE5D' 

9C 

c+ 

OE5E' 

CA  0939' 

c+ 

c 

OE61' 

D4 

c+ 

OE62' 

OOCB' 

c+ 

0E64' 

0482' 

c+ 

OE66' 

9C 

c+ 

0E67' 

CA  0939' 

c+ 

c 

OE6A' 

D4 

c+ 

OE6B' 

OOCB' 

c+ 

OE6D' 

ET3F 

c+ 

OE36F' 

9C 

c+ 

0ET70* 

CA  0939' 

c+ 

c 

OET73  * 

D4 

c+ 

OE74' 

OOCB’ 

c+ 

0E76’ 

048E’ 

c+ 

OET78' 

9C 

c+ 

0E79’ 

CA  0939' 

c+ 

c 

OE7C' 

D4 

c+ 

OET7D' 

OOCB' 

c+ 

0E7F' 

ET4A 

c+ 

OE81’ 

9C 

c+ 

0E82’ 

CA  0939' 

c+ 

c 

0E85’ 

D4 

c+ 

OE86' 

OOCB' 

c+ 

OE88' 

04B3' 

c+ 

TYPMSG  STDAY  ;TYFE  ORRENT  SCHEDU1Z 


TYPMSG  ASHD 


TYPMSG  STBOUR 


TYPMSG  ASTH 


TYPMSG  STKIN 


TYPMSG  ASTM 


TYPMSG  MEAINT 


TYPMSG  AIHM 


TYPMSG  SCDKSG 
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0E8A' 

9C 

C+ 

0E8B' 

CA  0939' 

C+ 

0E8E' 

F8  43 

c 

LDI 

US 

(GOETiG) 

0E90' 

A7 

c 

PLO 

R7 

;IF  GO  FLAG  IS  SET 

0E91' 

47 

c 

LDA 

R7 

;SAY  ACTIVE,  AND 

0E92' 

FB  AA 

c 

XRI 

OAAH 

.•INDICATE  THE  NUMBER 

0E94' 

CA  0EF9' 

c 

IDIG 

SNARM 

;0F  MINUTES  TO  THE  NEXT 

0E97' 

07 

c 

LDN 

R7 

;  MEASUREMENT,  OTHERWISE 

0E98' 

FB  AA 

c 

XRI 

OAAH 

;TOPE  THE  CURRENT 

0E9A' 

CA  0EU5' 

c 

L£NZ 

SARMI 

;  SYSTEM  STATUS  AND  EXIT 

c 

TOPMSG 

ACTIVE 

0E9D' 

D4 

c+ 

0E9E' 

OOCB' 

c+ 

OEAO' 

04C4' 

c+ 

0EA2' 

9C 

c+ 

OEM' 

a  0939' 

c+ 

OEA6' 

F8  26 

c 

IDI 

LOW 

(M3NCW) 

0EA8' 

A7 

c 

PIO 

R7 

;G£T  HEX  HINCV 

0EA9' 

47 

c 

IDA 

R7 

OEAA' 

BA 

c 

pm 

RA 

;AND  PLACE  IN  RA 

OEM' 

07 

c 

LDN 

R7 

OEM' 

AA 

c 

PLO 

RA 

OEM' 

9A 

c 

GUI 

RA 

OEAE' 

AC 

c 

PLO 

PC 

c 

CALL 

TOPEE 

;TOPE  HI  BYTE 

OEM" 

D4 

c+ 

OEBO' 

021F' 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

0EB2' 

9C 

c+ 

0EB3' 

CA  0939' 

c+ 

OEB6' 

8A 

c 

GLO 

RA 

;GET  HEX  MINCH  LO 

0EB7' 

AC 

c 

PID 

RC 

c 

CALL 

TOPEE 

;TOPE  LO  BYTE 

0EB8' 

D4 

c+ 

0EB9' 

021F' 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

OEBB' 

9C 

c+ 

OEBC' 

CA  C939' 

c+ 

c 

TOPMSG 

MINREM 

OEBF' 

D4 

c+ 

OECO' 

OOCB' 

c+ 

OEC2' 

04D1' 

c+ 

0BC4' 

9C 

c+ 

0EJC5' 

CA  0939' 

c+ 

c 

TOPMSG 

FNTR 

.•INDICATE  POINTER  LOCATION 

0E5C8* 

D4 

c+ 

0E3C9’ 

OOCB' 

c+ 

OECB' 

0504' 

c+ 

OECD' 

9C 

c+ 

OECE’ 

a  0939* 

c+ 

OED1' 

F8  OE 

c 

IDI 

US 

(STRADD) 

0ED3' 

A7 

c 

PLO 

R7 

OED4’ 

47 

c 

IDA 

R7 

;GET  CURRENT  STORE  ADDRESS 

0ED5' 

BA 

c 

pm 

RA 

0ED6' 

07 

c 

IDN 

R7 

0ED7' 

AA 

c 

PLO 

RA 

96 
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0ED8' 

9A 

C 

an 

RA 

0ED9' 

AC 

C 

PDO 

RC 

C 

CALS 

TYPEE 

;TYFE  HI  BYTE 

OEDA’ 

D4 

C+ 

on®' 

0211" 

c+ 

c 

ERROR? 

;REACT  TO  ERRORS 

OEDD' 

9C 

c+ 

-  0EDE' 

CA  0939' 

c+ 

_ 

OEEl' 

8A 

c 

GDO 

RA 

OEE2' 

AC 

c 

PDO 

RC 

c 

CALL 

TYPEC 

;TYPE  DO  BYTE 

0EE3' 

D4 

c+ 

0EE4' 

021F' 

c+ 

c 

ERROR? 

;  REACT  TO  ERRORS 

OEE6’ 

9C 

c+ 

0EE7’ 

a  0939' 

c+ 

(SEA’ 

CO  OSES' 

c 

I£R 

PRKXTT 

;GET  NEXT  OCHMAND 

nrni1 

c 

SAYIDL: 

TYPMSG 

nm 

;G0  FLAG  NOT  SET 

CE5D' 

D4 

c+ 

fBCTE' 

OOCB' 

c+ 

OEFO’ 

04EE' 

c+ 

0EF2' 

9C 

c+ 

OEF3’ 

CA  0939' 

c+ 

OEF6’ 

CO  08ED' 

c 

U5R 

PRHOOT 

;SAY  IDLE  AND  EXIT 

0ET9' 

c 

SNARM: 

TYPMSG 

NOTARM 

;SAY  NOT  ARMED 

OEF9' 

D4 

c+ 

OETA' 

OOCB' 

c+ 

OEFC' 

0582* 

c+ 

OEFE’ 

9C 

c+ 

QEFF' 

CA  0939' 

c+ 

0F02' 

CO  OSES' 

c 

L£R 

PRMOUT 

;AND  EXIT 

0P05' 

c 

SARMI: 

TYPMSG 

ARKIHi 

;SAY  ARMED  BOT  HX£ 

0P05' 

D4 

c+ 

0F06' 

OOCB' 

c+ 

C 3808* 

056D' 

c+ 

OFOA' 

9C 

c+ 

(BOB' 

CA  0939' 

c+ 

QFOE' 

CO  08EB’ 

c 

r 

l£R 

PRMOT 

;AND  EXIT 

V 

c 

The  response  to  a  "HDLE"  oannand  is  to  test  the  go 

c 

flag  and  if  set,  reset  it.  If  the  ga  flag  is  already 

c 

reset, 

the  message  "Scheduler  was  NOT  active  ! !"  will  be 

c 

/•« 

sent. 

onr 

F8  43 

c 

< 

3ET00: 

LDI 

l£N 

(GOFLG) 

003' 

A7 

c 

PDO 

R7 

;GET  GO  FLAG 

0F14' 

07 

c 

UN 

R7 

;  IS  IT  SET  ? 

0E15' 

FB  AA 

c 

XRI 

QAAH 

;IF  SO  RESET  IT 

0F17' 

a  0F2B' 

c 

L£NZ 

SAYNOT 

;  OTHERWISE  TYPE 

0F1A' 

F8  00 

c 

LDI 

OOH 

;NOT  ACTIVE  MESSAGE 

one 

57 

c 

STR 

R7 

, -RESET  HI  AND  DO 

(BID' 

17 

c 

INC 

R7 

;0F  GO  FLAG 

0F1E’ 

57 

c 

STR 

R7 

;THEN 

c 

TYPMSG 

OK 

;SAY  OK  AND  GET 

OFIT 

D4 

c+ 

0F20' 

OOCB' 

c+ 
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0F22' 

041F' 

C+ 

0F24' 

9C 

C+ 

0F25' 

CA  0939* 

c+ 

0F28' 

a)  08ED' 

C 

l£R 

PRM3OT 

,‘NEXT  COMMAND 

0F2B' 

C 

5AYNOT:  TYPMSG 

NOTACT 

;FLAG  WAS  NOT  SETT 

0F2B' 

D4 

c+ 

0F2C* 

OOCB' 

c+ 

0F2E' 

0516' 

c+ 

0F30' 

9C 

c+ 

0F31* 

a  0939' 

c+ 

0F34’ 

CO  08ED' 

c 

l£R 

PR2CUT 

;GET  NEXT  COMMAND 

L 

c 

Hie  response  to  a  "IPING"  ccnmand  is  to  first  ask  "OK  ?" 

c 

and  if  a  *Y*  is  the  answer  to  trigger  the  pinger.  Any  other 

c 

S' 

answer  will  cause  an  exit  to  CHND. 

OF37’ 

L 

C  1 

EMIT:  CALL 

ASRCK 

;ASK  PERMISSICN 

0F37' 

D4 

c+ 

OF38' 

0113* 

c+ 

c 

ERROR? 

;  REACT  TO  UART  ERRORS 

0F3A' 

9C 

c+ 

0F3B' 

a  0939' 

c+ 

0F3E' 

8C 

c 

GLO 

RC 

;IS  IT  VES  ? 

0F3F" 

CA  08ED' 

c 

LENZ 

PRM3UT 

;IF  NOT  EOT 

0F42' 

E3 

c 

SEX 

R3 

0F43' 

63 

c 

OUT 

PING 

,-SEND  PING 

0F44' 

00 

c 

OB 

OOH 

0F45’ 

CO  08ED' 

c 

LBR 

pruxtt 

;GET  NEXT  COMMAND 

c 

1 

c 

c 

BOJUDE  IMAIN.MAC 

t 

c 

*  MAIN. MAC  * 

c 

c 

c 

z' 

+  THIS  IS  TOE  INTERROGATOR  MAIN  PROGRAM  + 

V* 

c 

c 

Define  the  locaticcs  in  RAM  which  bold  the  current 

c 

’data  address. 

FFOE 

V* 

c 

c 

' 

TIRADO  EJ3U 

GL3BAL+OEH 

;  STORE  ADDRESS  POINTER 

c 

c 

•If  Q  is  set  it  is  time  to  begin  a  measurement  sequence. 

0F48' 

C9  0FF7' 

c 

r 

IAIN:  I£N2 

SHIWN 

;SHUT  DCWN  IF  NO  Q 

V 

c 

;This  is  the  measurement  sequence.  Since  it  is  approximately 

c 

;one  minute  before  the  PING, 

enable  interrupts  to  keep  the 

c 

c 

;  clock  running  and  stop  processing  for  one  minute. 

0F4B' 

7A 

c 

KSRSEQ:  REQ 

;  INSURE  THAT  Q  IS  RESET 

OF4C' 

F8  17 

c 

IDI 

I£V  (TICK)  ;  RESET  TOE  TICK  FLAG 

0F4E' 

A7 

c 

PLC 

T3*7 

0F4F' 

F8  00 

c 

ID1 

OOH 

98 
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0F51'  57  C 

STR  R7 

0F52'  E3  C 

SEX  R3 

OF53'  65  C 

<XTT  ORBIT 

•RESET  INTERRUPT 

0F54'  00  C 

DB  00H 

•HAREWARE  AND  INSURE 

0F55*  F8  62'  C 

LDI  LCW  (INTRPT) 

0F57'  A1  C 

PID  R1 

•THAT  R1  IS  POINTING 

0F58'  F8  03'  C 

IDI  HIGH  (INIRPT) 

0F5A'  B1  C 

PHI  R1 

•AT  INTERRUPT  BEEORE  - 

0F5B'  70  C 

RET 

•INTERRUPTS  ARE  ENABLED. 

0F5C'  33  C 

DB  33H 

C 

CALL  DELAY 

•CLOCK  CAL.  CONSTANT  IS 

0F5D'  D4  C+ 

0F5E'  00A2*  C+ 

0F60’  067D  C 

EW  067DH 

•200  mS.  (OSC.  START  UP) 

0F62'  00  C 

n 

HL 

•WAIT  CNE  MINUTE 

Vr 

c 

•Restore  measurement  interval  oounter  to  its  original  value 

CF63'  F8  26  Cl 

LSTMI:  IDI  LCW  (HBCW) 

0F65'  A7  C 

PLO  R7 

0F66'  F8  24  C 

LDI  LCW  (HEXKI) 

0F68'  AA  C 

PLO  RA 

POINT  AT  MESS.  I NT. 

OP69'  97  C 

an  R7 

•USING  RA  A 

0F6A'  BA  C 

PHI  RA 

THE  POINTER 

0F6B'  4A  C 

LDA  RA 

GET  OLD  VALUE 

0F6C'  57  C 

SIR  R7 

AND  DUPLICATE  IT 

0F6D'  17  C 

INC  R7 

AT  MBJCW 

0F6E’  OA  C 

LON  RA 

0F6F'  57  C 

r 

STR  R7 

c 

r 

Convert  current  time  to  time  code  and  store. 

0E70'  ER  14  C 

LDI  ICW  (HIM)  ; POINT  AT  UNITS  CF  HOURS 

Off  2’  A7  C 

PLO  R7 

0E73'  07  C 

UN  R7  ?GET  UNITS  CF  HOURS 

0F74'  AB  C 

FLO  RB 

C 

CALL  RSB2A 

SHIFT  4  BITS  TO  RA 

OTIS'  D4  C+ 

OF76'  00B7'  C+ 

am'  04  c 

DB  04H 

0E79'  27  C 

DEC  R7 

GET  TENS  CF  HOURS 

0F7A'  07  C 

UN  R7 

0E7B'  AB  C 

PLO  RB 

C 

CALL  RSB2A  ;SKIFT  2  BITS  TO  RA 

OTIC'  D4  C+ 

0F7D'  00B7'  C+ 

0F7F'  02  C 

DB  02H 

0F80'  27  C 

DEC  R7  ;GET  UNITS  OF  DAYS 

0F81'  07  C 

UN  R7 

0F82'  AB  C 

PLO  RB 

C 

CALL  RSB2A 

SHUT  4  BITS  TO  RA 

0F83'  D4  C+ 

0F84’  00B7'  C+ 

0F86'  04  C 

DB  04H 

OF87'  27  C 

DEC  r7 

GET  TINS  Of  DAYS 

0F88'  07  C 

UN  R7 
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0F89' 

AB 

C 

PIO 

RB 

C 

CALL 

RSB2A 

;  SHIFT  4  BITS  TO  RA 

0F8A' 

D4 

C+ 

0F8B' 

OOB7' 

C+ 

0F8D' 

04 

c 

DB 

04H 

0F8E' 

27 

c 

DEC 

R7 

,-GET  HUNDREDS  OF  DAYS 

0F8F' 

07 

c 

ION 

R7 

-0F90' 

AB 

c 

PIO 

RB 

c 

CALL 

RSB2A 

;  SHIFT  2  BITS  TO  RA 

0F91' 

D4 

c+ 

0F92’ 

00B7' 

c+ 

0F94' 

02 

c 

PB 

02H 

0F95' 

8A 

c 

GO 

RA 

;GET  IOW  BYTE 

0F%' 

AF 

c 

PIO 

RF 

;SAVE  IT 

0F9 V 

9A 

c 

GH I 

RA 

;GET  HI  BYTE 

0F98' 

BF 

c 

c 

PHI 

RF 

,-SAVE  IT 

c 

This  is  the  measurement  sequence.  RA,  RB,  and  RC  are 

c 

used  as  travel  time  counters  for  FI,  F2,  and  F3.  RD  is 

c 

used  as  a  time  out  counter.  The  measurement  sequence  Hill 

c 

terminate  when  a  reply  fran  all  three  transponders  has  been 

c 

received,  or  RD  rolls  over  to  0000.  Since  the  counters  are 

c 

incremented  at  a  4  kHz  rate. 

the  maximum  measurement  time 

c 

n 

•will  not  exceed  16.4  seconds. 

OF99' 

F8  00 

L 

c 

3NDPNG:  LDI 

00 

;  RESET  ALL  COUNTERS 

0F9B’ 

AA 

c 

PIO 

RA 

0F9C' 

BA 

c 

PHI 

RA 

0F9D’ 

AB 

c 

PIO 

RB 

0F9E' 

BB 

c 

PHI 

RB 

0F9T 

AC 

c 

PIO 

RC 

0FA0' 

BC 

c 

PHI 

RC 

OFA1' 

AD 

c 

PIO 

RD 

OEM' 

BD 

c 

PHI 

RD 

OFA3' 

C4 

c 

NOP 

OEM’ 

C4 

c 

NCP 

;M3VE  PROGRAM  POINTER  TO 

0FA5' 

C4 

c 

NCP 

;TOP  OF  LAST  PAGE. 

0FA6' 

C4 

c 

NCP 

c 

r 

•Wait  for  the  leading  edge  of  the  4  kHz  timing  signal. 

mi' 

3F  A7' 

V- 

c 

VAITO:  BN4 

WAITO 

CUTS' 

37  A9' 

c 

WHT1:  B4 

HAITI 

OFAB' 

E3 

c 

SBC 

R3 

OFAC' 

63 

c 

OUT 

PING 

;PING 

OFAD' 

00 

c 

c 

DB 

OOH 

OFAE' 

3F  AE' 

c 

t 

WO:  BN4 

WO 

;WAIT  TOR  THE  NEXT 

OFBO' 

37  BO' 

c 

Wl:  B4 

Wl 

;  RISING  ED®  OF  4  KHZ 

0FB2' 

ID 

c 

n 

INC 

RD 

;00UNT  IT 

V-, 

c 

•Begin  looking  for  reply  to  ping,  and  incrementing  counters 

c 

c 

if  the  reply  is  not  detected. 

0FB3' 

34  B6’ 

c 

B1 

TEST2 

;  INCREMENT  COUNTER  IF 

0FB5' 

1A 

c 

INC 

RA 

;NO  REEEPTICN,  OTHERWISE 
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0FB6' 

35  B9' 

C 

TEST2:  B2 

TEST3 

;SKEP  TO  NEXT  TEST 

0FB8' 

IB 

C 

INC 

RB 

0FB9' 

36  BC’ 

c 

TEST3:  B3 

TESTED 

OFBB' 

1C 

c 

INC 

RC 

OFBC' 

8D 

c 

TESTED:  GLO 

RD 

;IF  RD  IS  NOT  ZERO 

OFBD' 

CA  OFAE’ 

c 

LBNZ 

WO 

; CONTINUE  TESTING 

OFCO' 

9D 

c 

an 

RD 

;AND  INCREMENTING 

-  0PC1' 

CA  OFAE' 

c 

/■« 

LBNZ 

WO 

; OTHERWISE,  STORE  DATA, 

,  0FC4' 

E7 

c 

c 

t 

SAVTT:  SEX 

R7 

;USE  R7  AS  THE  FODDER 

0FC5' 

r3  OE 

c 

1DI 

LOW 

(STEAK)) 

0PC7’ 

A7 

c 

PLO 

R7 

;<3T  CURRENT  DATA 

0FC8' 

47 

c 

IDA 

R7 

;AKJRESS 

0FC9' 

BD 

c 

PHI 

RD 

;  TRANSFER  TO  RD 

OFCA' 

FB  FF 

c 

XRI 

OFFH 

;IF  INTO  OB6AL  PAffi 

OECC' 

C2  OIEF' 

c 

IBZ 

ALSTOP 

;  CEASE  MEASUREMENTS 

OPCF' 

07 

c 

UN 

R7 

; OTHERWISE,  OCNTINUE 

OTTO* 

AD 

c 

PW 

RD 

0FD1' 

9F 

c 

an 

RF 

;  STORE  TIME 

0FD2* 

5D 

c 

STR 

RD 

0FD3' 

ID 

c 

INC 

RD 

OEM' 

8F 

c 

GLO 

RF 

0ED5' 

5D 

c 

STR 

RD 

0FD6' 

ID 

c 

INC 

RD 

0FD7' 

9A 

c 

an 

RA 

;  STORE  TRAVEL  TIME  A 

one* 

5D 

c 

STR 

RD 

0FD9' 

ID 

c 

INC 

RD 

OFDA' 

8A 

c 

glo 

RA 

OEB' 

5D 

c 

STR 

RD 

OFDC' 

ID 

c 

INC 

RD 

OFDD' 

9B 

c 

(SI 

RB 

, -STORE  TRAVEL  TIME  B 

OFDE' 

5D 

c 

STR 

RD 

on®" 

ID 

c 

INC 

RD 

OFBO' 

8B 

c 

an 

RB 

OFEl' 

5D 

c 

SIR 

RD 

0FE2' 

ID 

c 

INC 

RD 

0FE3' 

9C 

c 

(SI 

RC 

;  STORE  TRAVEL  TIME  C 

0FE4' 

5D 

c 

SIR 

RD 

0FE5' 

ID 

c 

INC 

RD 

cm1 

8C 

c 

an 

RC 

0FE7' 

5D 

c 

SIR 

RD 

0FE8' 

ID 

c 

INC 

RD 

0FE9' 

OFEA' 

8D 

73 

c 

c 

an 

STXD 

RD 

;SAVE  CURRENT  STORE  ADDRESS 

QFEB' 

9D 

c 

an 

RD 

OFK' 

57 

c 

SIR 

R7 

OFED' 

30  F7' 

c 

n 

BR 

SHTDWN 

OFEF' 

F8  43 

V- 

c 

ALSTOP:  LDI 

LOW 

(GOFLG)  ;  SINCE  THE  CURRENT 

0FF1’ 

A7 

c 

PLO 

R7 

;ADDRESS  IS  WITHIN 

0FF2' 

E8  00 

c 

LDI 

OOH 

;OJ3BAL  PAGE,  RESET  THE 

0FF4' 

57 

c 

STR 

R7 

;G0  FLAG  BOTH 

OFFS’ 

17 

c 

INC 

R7 

;HIGH  AND  LCW 

OFFS' 

57 

c 

c 

STR 

R7 

;AND  SHUT  DCHN 

0FF7' 

7B 

c 

t 

SffTDWN:  SB3 

;LOCK  PCWER  CN 

101 
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0FF8' 

E3 

C 

PDLQOP:  SEX 

OFFS' 

62 

C 

CUT 

OFFA' 

00 

C 

IB 

OEFB' 

71 

C 

DIS 

OFFC' 

33 

C 

IB 

OFFD' 

7A 

C 

RB2 

OFFE' 

00 

C 

IDL 

C 

END 

R3 

;  RESET  POWER  CONTROL 

PWRRST 

;FLIP  FLOP 

ooe 

;  DISABLE  INTERRUPTS 

33H 

;TURN  POWER  OFF  AND 
;WATT  THIi  IT  DROPS 
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MACROS: 

CALL 

CHAR? 

ERROR? 

GETFLG 

RETURN 

TYPMSG 

WORD? 

SYMBOLS 

ACTIVE 

04C4' 

AD10 

0D5E1 

AD100 

OD67' 

ADBIAS 

0097' 

ADDRS? 

07BC' 

ADCNE 

W94‘ 

AERROR 

0081' 

AEHM 

FF4A 

ALSTOP 

OFEF* 

ARMIDL 

056D1 

ASHD 

FF38 

ASKOK 

0113' 

ASTH 

FF3C 

ASTC 

0594’ 

ASTO 

FF3F 

ASUM 

FF3E 

AT 

0457* 

AT? 

0BC2’ 

ATOH 

00581' 

BADCHR 

0108' 

BCDHEX 

0D4E' 

BEL 

0007 

BHDCNE 

0D7A' 

BYTOOT 

0978' 

CALCRC 

0253' 

CALL 

W3AI* 

CALLCC 

0A87' 

CLEAR 

03ET 

oicnc 

03A4* 

CLOOP 

0A7B1 

CLOSE 

0911' 

dRCLO 

0219’ 

ORENT 

0005 

CMDIN 

07D9' 

CMPXIT 

0144* 

COLSET 

0A2E’ 

CCMPAR 

012B' 

CONFIG 

0012 

CORM 

080D' 

CPYTM 

02F2' 

CR 

000D 

CRC 

0A58' 

CRCHI 

FFOB 

CRCLO 

FFOC 

CROOOT 

0AA4' 

ORLF 

03D0' 

CREFSP 

03D6' 

CRTST 

0A06' 

CTST 

012F' 

DADCNE 

016C' 

DATA 

0006 

DATAIN 

0162’ 

DEARM 

ODCB' 

DBCC 

OQAE' 

DELAY 

00A2' 

DEVICE 

07C9* 

DIFFER 

0143’ 

DIHM 

FF45 

DLE 

0417* 

DSHD 

FF30 

DSHFT 

09EB' 

DSLM 

FF36 

DTOA 

0095* 

ENITNr 

037A' 

EOL 

03CF' 

E33S 

03F3' 

ERROR 

043 A' 

ERROOT 

08F9* 

ERVEC 

0939’ 

EIX 

0W3 

EXASK 

012A' 

EXOCN 

038F' 

EXDLY 

00B6' 

exutt 

0360' 

EXIT 

03C4' 

Exrrc 

0039' 

EXTIR 

004A' 

EXPHXN 

0211' 

FROM 

03DD' 

GET2HX 

023Q ' 

GETCHR 

0171' 

GEITfflC 

019E* 

GETHEX 

016DI' 

GFTOO 

OFir 

OOBAL 

FEW 

SOEL3 

FF43 

HD 

FE10 

HDCNE 

0077' 

HEIR 

059E' 

HEXMI 

FF24 

HLROOT 

0905' 

HTOA 

00851' 

I? 

0888’ 

IDEM1 

08D2' 

m.Fi 

04FE' 

INCHAR 

01451' 

INCTH 

034A’ 

INDEC 

01%' 

ING 

04IB' 

MET 

0000* 

INMINT 

0D2A* 

umm 

0B9C' 

INIRPT 

0362’ 

ITYPE 

00D7I* 

IDADD 

09  AF' 

LDREGS 

0C27' 

ILSCED 

OCBE' 

LOTIM 

0B9O’ 

LETST 

098A' 

LF 

000A 

LOAD 

09A4* 

LOCK 

040D’ 

LTOP 

0C26' 

LYPYR1 

02CA' 

LYPYR? 

02C5' 

max 

02821’ 

M2CLK 

0286’ 

MAIN 

0F48' 

MEAINT 

048E' 

MDQN 

0535’ 

MINCH 

FF26 

MNREM 

04D1' 

MODELS 

0A39* 

M3RL 

082F’ 

MOVE 

OADF' 

M3VIT 

OB26' 

MSRSEC 

0F4B' 

NAME 

03CC 

NCYCLE 

0C5C' 

NDA 

014A' 

NO 

03FE' 

NOCMD 

08AE’ 

NOCR 

QA4A' 

NXF 

0A51' 

mm 

08C6' 

NOTACT 

0516' 

NCfTARM 

0582' 

NUL 

0000 

NXTADD 

0D6D' 

NXTD 

09D2' 

NXTLOC 

0C72' 

NXIM 

FF18 

fOCIXDR 

0331’ 

CK 

041F' 

OK? 

0423' 

onnoo 

0C3F' 

CNNOl 

0C44' 

0NNO2 

0C4A' 

CNN03 

0C4F' 

CNN04 

0C54’ 

OPEN 

0925’ 

OVE 

0444’ 

OVER 

03EB’ 

P? 

08B1* 

PDLOOP 

0FF8' 

PHXIN 

01E6I' 

PING 

0003 

PN? 

089B* 

PNIR 

0504' 

PRMOOT 

08ED' 

PRMPT 

0433' 

PROMPT 

003A 

PS1HD 

0353' 

PWRRST 

0002 

gRYSCE 

0DD6' 

QUERRY 

094D’ 

QUEITM 

0B35' 

RAN 

1000 

RAM’S! 

0BD5' 

RAND 

0C35’ 

RC$ 

03DA' 

READY 

0448' 

RESTO 

039A' 

REIURN 

004BI’ 

RMST 

0596' 

RSB2A 

006V 

RSPBC 

0BE9' 

RSTFLG 

091A’ 

RSim 

OF63' 

RSTRX 

038A' 

RTOP 

0C34' 

RUN 

OACO’ 

S1HD 

FF29 

S1UM 

FF2F 

S? 

0875' 

SAIL 

03B0’ 

SALTTY 

OOCBI' 

SARMI 

0F05' 

SAT 

058C' 

SAVIT 

0FC4’ 

SAYIDL 

OEED' 

SAYNOT 

0F2B' 

scemsg 

04B3' 

SCED 

045D’ 

SCRACH 

FF05 

SECS 

044F’ 

SELECT 

0W1 

SETAD 

0D9A' 

SGOFLG 

0340' 

SHFTC 

01B5' 

SHIFT 

0078' 

SHIFTC 

0184' 

SHRB 

00B9’ 

SHTDWN 

0FE7’ 

SIZE 

FOOO 

SNARM 

0EF9' 

SNDPNG 

0F99’ 

SP 

03D4' 

SPACE 

0020 

SPEC 

OAEA' 

SPOUT 

096F’ 

SPSP 

03D3' 

STACK 

FF7F 

STATUS 

0007 

STDAY 

0465' 

STHOUR 

0478' 

STMIN 

0482’ 

STOP 

007E 

STORE 

0A23’ 

STPCLK 

0004 

STRADD 

FFOE 

STRDEC 

OLDO' 

STRNEW 

034E' 

T? 

0862’ 
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IEST2 

0FB6' 

TEST3 

0FB9' 

TICK 

FE17 

TIKE 

0459’ 

TSTGF 

0300' 

TSTHIC 

00A6' 

TSTIME 

0328 ' 

TSTQ 

02E4' 

TXMIT 

0F37* 

TYPADD 

095D* 

DM 

FF16 

UNLOCK 

0411' 

VERIFY 

0C6A' 

WO 

JFAE' 

HAITI 

0FA9* 

WRITE 

0C5D' 

X2HEX 

0252' 

XGSTH 

0195’ 

XINTF 

038E' 

NO  FATAL  ERROR (S) 


TESTED 

OFBC' 

TORE? 

OODC' 

TO 

03E5' 

TSTDA 

0154' 

TSTOR 

00E9* 

tsticx 

0358' 

TSTSP 

099C' 

THT 

010B' 

TYPEC 

021FI' 

u? 

084F' 

UPDATE 

02B6* 

VESCYC 

0C6B' 

W1 

OFBO' 

WAITO 

0FA7' 

WRTERR 

0C8D' 

WST5 

00B2' 

XINDEC 

01C9' 

XJNE 

01C6 ' 

PAGE  S-l 
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System  endurance  varies  with  the  measurement  pe  iod,  however,  typical  programs  permit  navigation  for  up  to  21  months 
at  12  points  per  day. 

Upon  recovery,  the  navigator  data  may  be  down-landed  via  SAIL  directly  to  the  storage  medium  of  a  suitable  computer. 
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